Verifica data válida

Delphi

24/05/2005

Como fazer para verificar se o usuário digitou uma data válida, ou seja não pode ser em branco nem outro caracter inválido?

Grato


Guima01

Guima01

Curtidas 0

Respostas

Marco Salles

Marco Salles

24/05/2005

digitou uma data


Digitou aonde :?: :?: :?:

Num MaskEdit , Nun Edit , Nun DbGrid :?: :?: :?:


GOSTEI 0
Guima01

Guima01

24/05/2005

[quote:26e95b27d6=´Marco Salles´]
digitou uma data


Digitou aonde :?: :?: :?:

Num MaskEdit , Nun Edit , Nun DbGrid :?: :?: :?:[/quote:26e95b27d6]



Será digitado em um edit ou inputbox


GOSTEI 0
Marco Salles

Marco Salles

24/05/2005

Será digitado em um edit ou inputbox


var
 data:TDate;
begin
try
 data:=StrToDate(Edit1.Text);
except
 on e:econverterror do
 begin
   showmessage(´DataInválida´);
 end;
end;

end;//do begin



GOSTEI 0
POSTAR