Ver Mensaje Individual
  #2  
Antiguo 11-12-2007
Avatar de dec
dec dec is offline
Moderador
 
Registrado: dic 2004
Ubicación: Alcobendas, Madrid, España
Posts: 13.107
Reputación: 34
dec Tiene un aura espectaculardec Tiene un aura espectacular
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;
__________________
David Esperalta
www.decsoftutils.com
Responder Con Cita