Cómo evitar el error al dividir por cero

[nando87dc]

Me parece muy complejo para copiarlo en todos los botones...
no hay alguna forma de poner un filtro al campo de texto que no deje poner ciertos valores?

[dec]

Hola,

Pues... acaso te interese usar "TMaskEdit", o "TSpinEdit"... o ciertos eventos de los "TEdit"...

[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;

[[egostar]]

Empezado por Neftali

Otra opción es

Código Delphi [-]
 
MessageDlg('¡¡¡¡PEDAZO DE CENUTRIO!!!!  Cómo vas a dividir por 0.',mtError, [mbOK], 0);

Perdón pero no puedo evitar la risa con esa palabrita CENUTRIO.

Salud OS

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

Empezado por egostar

...con esa palabrita CENUTRIO.

La verdad es que nunca pensé que estuviera en el Diccionario de la Lengua.