problema con fechas

[gustavoh]

tengo un mask edit para ingresar un fecha y tengo este problema:
si el usuario me ingresa algo asi: 99/99/9999
me sale una exception EVariantTypeCastError que no puede pasar es fecha
a tipo Date
quisiera saber como hacer para que solo se pueda ingresar fecha validas
e advertirle al usuario que pudo una fecha incorrecta

MUCHAS GRACIAS

[marcoszorrilla]

Código Delphi [-]
procedure TForm1.MaskEdit1Exit(Sender: TObject);
var
MiFecha:Tdate;
begin

  Try
  MiFecha:=StrToDate(MaskEdit1.Text);
  Except
  ShowMessage('Formato de Fecha incorrecto');
  end;

end;

Un Saludo.

[osmar]

Hola Amigos!!

Yo tambien tengo el mismo problema, pero en este caso, la fecha se carga en un Dbgrid en que evento tengo que poner ese control...


Gracias de antemamo..

Saludos Osmar..

[marcoszorrilla]

Respondiendo a Osmar, que dicho sea de paso debiera haber abierto otro hilo para hacer su pregunta, si haces doble clic en el Ttable correspondiente añades todos los campos, botón derecho y añadir, seleccionas el campo Fecha que corresponda y en su propiedad EditMask eliges la correspondiente a fechas, no tienes porque hacer nada con la rejilla, el formato de fecha lo tendrá para todas las situaciones en que utilices controles enlazados a datos.

Un Saludo.

[gustavoh]

muchas gracias!

[osmar]

Gracias marcoszorrilla por la respuesta.. ahora tengo otro problema, pero ahora si ya abriré otro hilo...


Gracias por la ayuda..!!!

Saludos Osmar Rolón...