Array
(
)

date correta

Everton Tom
   - 30 ago 2004

opaa bom dia!! primeira mente agradeço a todos
que entraram neste tópico com a intensão de mu ajudar!
amigos tenho um campo com data ok!! editado no editmask
tudo certinhu!! mais tem uma coisa quando por exemplo
eu coloco mês 15!! ele vai dar eero logico!! n existe mês 15
só q eu queria q apareçesse em um showmessage alguma coisa assim
dizendo ´sua data esta incorreta´ alguem sabe me ajudar!!
Obrigado pela atenção agurado resposta!!


Jc_analista
   - 30 ago 2004

tenta assim

try
strtodate(edit1.text);
except
showmessage(´data invalida´);
end;


Everton Tom
   - 30 ago 2004

Muito Obrigado pela sua atenção!
mais eu coloco aonde?


Motta
   - 30 ago 2004

ponha no evento on exit


procedure TForm1.Edit1Exit(Sender: TObject);
begin
...
end;