try except
Enviado: 26 Jun 2007 14:48Ola!
Nao estou conseguindo fazer funcionar um simples try except no delphi 5 e tenho programas que usam, mas este de agora nao funciona, tem haver com alguma configuracao do compilador?
Valeu!
Nao estou conseguindo fazer funcionar um simples try except no delphi 5 e tenho programas que usam, mas este de agora nao funciona, tem haver com alguma configuracao do compilador?
- Código: Selecionar todos
procedure TForm1.Button1Click(Sender: TObject);
begin
try
ShowMessage(FloatToStr(StrToFloat(EditNum1.Text)/StrToFloat(EditNum2.Text)));
except
ShowMessage('Voce digitou valores incorretos');
EditNum1.Text:=' ' ;
EditNum2.Text:=' ' ;
end;
end;
Valeu!
