Validar datas
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?
Ja vi alguns exemplos pela web, mas a maioria é para tedit e outros nao 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
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?
Ja vi alguns exemplos pela web, mas a maioria é para tedit e outros nao 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
Lucianorw
Curtidas 0
Respostas
Wagnerpb
26/04/2004
Tente algo mais ou menos assim, no evento on_exit do Edit
If Edit1.Text <> ´´ then
begin
try
Edit1.Text:=DateToStr(StrToDate(Edit1.Text))
except
ShowMessage(´Data Inválida´);
Edit1.Setfocus;
end;
end;
Outra opção, seria utilizar os componentes da RXLib
If Edit1.Text <> ´´ then
begin
try
Edit1.Text:=DateToStr(StrToDate(Edit1.Text))
except
ShowMessage(´Data Inválida´);
Edit1.Setfocus;
end;
end;
Outra opção, seria utilizar os componentes da RXLib
GOSTEI 0