Comprobación del formato de fecha

[anghell77]

Posiblemente empleando un MaskEdit con máscara de Fecha:

Código Delphi [-]
procedure TForm1.MaskEdit1Exit(Sender: TObject);
begin
try
Tabla.CampoFECHA.Value:=StrToDate(MaskEdit1.text);
 //Captura al Campo de tipo Fecha de la Tabla X el valor del MaskEdit

  except
    Application.MessageBox('Formato de fecha incorrecto','Atención',mb_Ok +mb_IconQuestion);
    MaskEdit1.SetFocus;
  end;
end;

Aunque también puedes ver aqui y aqui algo interesante.


{Saludos}