Página 1 de 1

try except

MensagemEnviado: 26 Jun 2007 14:48
por Doglao
Ola!
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!

MensagemEnviado: 26 Jun 2007 14:56
por Doglao
hehehe tinha esquecido!! foi mal ai, to tentando que funcione com o debug , funciona sim, ta tudo certinho, sem erros, ate mais. :oops: