Cómo evitar el error al dividir por cero

[Neftali [Germán.Estévez]]

Otra opción es:

Código Delphi [-]
  // Coloca esto en un procedimiento y lo llamas al principio de cada botón
  if (StrToIntDef(Edit2.Text), 0) = 0) then begin
    MessageDlg('¡¡¡¡PEDAZO DE CENUTRIO!!!!  Cómo vas a dividir por 0.',
                    mtError, [mbOK], 0);
    Exit;
  end;