Cómo evitar el error al dividir por cero
 

tengo dos campos de texto donde el usuario ingresa dos valores y al apretar un botón se hace una división y el resultado se imprime en un tercer campo de texto.
El problema es cuando se presiona el botón sin haber ingresado ningún valor o poniendo cero (ya que intenta dividir por 0).

De qué manera puedo preceder a la acción de la división un IF o algún comando para que detecte si los campos están vacios o con 0 y evite que se siga ejecutando?.

Saludos, espero puedan ayudarme.

Fernando del Castillo

Hola,

Puedes tratar de capturar la excepción correspondiente. A mí se me ocurre esto a bote pronto, pero, agradecería cualquier crítica constructiva al respecto. :)

Código Delphi [-]
  try
    Edit3.Text := IntToStr(
      StrToInt(Edit1.Text)
       div StrToInt(Edit2.Text)
    );
  except
    on E: EConvertError do begin
      ShowMessage(E.Message);
    end;
    on E: EDivByZero do begin
      ShowMessage(E.Message);
    end;
    on E: Exception do begin
      ShowMessage(E.Message);
    end;
  end;

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?

Hola,

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

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;

:D:D:D

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

Salud OS

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