Comprovar que es fecha válida.

[Tecnic2]

Hola,

Tengo un TEdit en mi programa y antes de ejecutar una consulta necesito comprovar que lo que hay en el texto sea una fecha válida.
Hay alguna función que lo haga?

Muchas gracias.

[delphi.com.ar]

No se si hay una función específica para validar una fecha, pero podrías utilizar algo como:

function IsDate(ADate: string): Boolean;
var
Dummy: TDateTime;
begin
IsDate := TryStrToDate(ADate, Dummy);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
if IsDate(Edit1.Text) Then
Caption := 'Ok';
end;

[marcoszorrilla]

Lo que te dice Federico funcionará sin problemas en D7 y quizás en D6, pero si tienes D5 no en este último caso prueba con algo como esto:

procedure TfrFactFechas.mkFiniExit(Sender: TObject);
begin
try
fini:=StrToDate(mkFini.text);
except
Application.MessageBox('Formato de fecha incorrecto','Atención',
mb_Ok +mb_IconQuestion);
mkFini.SetFocus;
end;

end;


Un Saludo.