Comprovar que es fecha válida.
 

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.

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;

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.