Erro de Data

Delphi

28/07/2003

Olá, Alguém poderia mandar o codigo para transformar o erro de data em uma messagebox. tipo = data inválida!


Obrigado Novamente
Rubens


Analistasaad

Analistasaad

Curtidas 0

Respostas

Buosinet

Buosinet

28/07/2003

var vData: TDateTime;

begin

try
vData := StrToDate(edit1.text);
except
raise Exception.Create(´Formato Inválido de Data´);
end;

end;


GOSTEI 0
POSTAR