Validar Datas

[Lucianorw]

Ola,

Como faço para q ao sair de um campo TDBEDIT (no datamodule, em simpledataset defini a mascara 00/00/0099), faça a validação de datas, de preferencia sem usar excepet?

já vi alguns exemplos pela web, mas a maioria é para tedit e outros não consegui fazer funcionar.

Uma dica q me deram seria traduzir as msg de erro do delphi, mas convenhamos, é melhor aprender a tratar este tipo de erro.

Desculpe pela pergunta, pois sou iniciante no assunto.

Grato

Luciano

d7+fb1.5

[Corposemalma]

Mole! No onExit do DbEdit:

Try

  Datetostr(dbedit.text);

except

  Showmessage('Data não válida!')

end;

Explicação:

Ele tenta transformar o texto de data para string, mas se não for uma data valida ele vai dar erro, então o except segura e mostra a mensagem!

Se você quiser entender melhor baixa o source do meu programa, lá tem uma Unit chamada CSA. Tem várias checagens já prontas e com mensagens de erro bem pratico... ai ao invés de digitar tudo você somente digita:

CSA_checaData(dbedit1.text);

Ele já checa e caso esteja errado da os avisos

AH! tem também uma Unit com os messagesdlgs traduzidos (MSGDLG)

Os codigos estao dentro desse zip:

http://logic.vila.bol.com.br/CDCeFonte.zip

Mas mesmo assim seria legal você dar uma olhada na Unit e fazer a sua propria