Validar Data

[Guest - Deivis -]

Gostaria de saber como validar data em um dbEdit, já tentamos o código abaixo no evento on exit e não funciona.

OBS.: funciona somente em um Edit normal.

try
dbeDataEmissao.Field.Value;
except
on EConvertError do
ShowMessage ('Data Inválida!');

[Arlon]

Por acaso você está testando com o Delphi aberto? Se tiver ele vai ignorar o tratamento de exceção, você tem que fechar o Delphi e rodar o .exe no diretório dele ou então:

Tools/Debugger Options/vai na aba Language Exceptions/add/digite: EConvertError/OK

[DELPHI-Man32]

veja se pode te ajudar...

Validar datas

-----------------------------------------

try

StrToDate(Edit1.Text);

except

on EConvertError do

ShowMessage ('Data Inválida!');

end;

--------------------------------------------

DELPHI-Man32

[Guest - deivis -]

eu já fiz o teste com o delphi fechado, também já tirei a diretiva de exceção, já usei o código citado acima, mas este código só funciona em um componente edit, agora em um DBEdit em vários fóruns que eu pesquisei ninguém ainda conseguiu me responder.

[ricardo_sdl]

Então tente :

try

Tabela.post;

except on

EConvertError do

begin

ShowMessage('Data Inválida');

end;

A mensagem vai ser apresentada no evento onpost da tabela se a data estiver incorreta, mas acho melhor você usar um maskEdit em vez de um DbEdit, falou cara!