Validar Datas

[Kakaroto]

Estou usando o seguinte código:

try

StrToDate(Edit1.Text);

except

on EConvertError do

ShowMessage ('Data Inválida!');

end;

Mas, quando digito uma data inváliada ao invés de aparecer a mensagem de data inválida, ele aparece uma mensagem de erro e sai do programa.

Como fazer para evitar esse tipo de ação com datas inválidas?

Obrigado

[Corposemalma]

Caro amigo! O código está correto, acontece o seguinte: mesmo você colocando o try e except, o Delphi ira mostrar os erros quando você rodar o sistema por ele (por causa do Debugger).. Apos o erro tente apertar F9 e clique novamente no sistema, você irá ver que ele continua e sua mensagem estará lá....

Se você rodar o sistema já compilado(.exe) verá que isso não acontece e que o erro esta encapsulado na sua mensagem

[s3c]

Para não aparecer rodando pelo Delphi:

Tool/Debugger Options/Language Exceptions/Add

Digite EConvertError e dê Ok.

[Corposemalma]

Para não aparecer rodando pelo Delphi:

Tool/Debugger Options/Language Exceptions/Add

Digite EConvertError e dê Ok.

Por isso que eu digo.. esse cara é demais