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:

Código Delphi [-]
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:

Código Delphi [-]
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.