Validar campo Date en Delphi 5

[vick]

HOLA QUE TAL

sucede que cree una tabla en Paradox7 para usarse en Delphi 5, en esa tabla cree un campo de tipo Date. todo va bien.

ya en delphi, a ese campo le asigne una mascara de entrada de la siguiente forma:
- di doble click sobre el componente TTable enlazado con la tabla ya mencionada
- seleccione el campo de tipo date y en la propiedad Edit Mask puse 99/99/9999.
para insertar la fecha.

la pregunta es còmo hago para validar cuando se inerta una fecha inexistente, el sistema lo hace pero envia el mensaje en ingles, y yo quiero cambiarlo por uno propio, utilizo el siguiente còdigo en el evento OnSetText del campo Date

Código Delphi [-]
 Try
   Except
     On Ex:EConvertError do
     Begin
       Showmessage('Error...')
       DBEdit3.SelectAll;
       DBedit3.Setfocus; //Es el DBEdit que corresponde a ese campo
     End;
   End;

Me manda el error, pero no se posiciona en el DBEdit, y cuando he logrado posicionarlo de otras formas, me desactiva la máscara y solo me deja escribir un caracter sobre el DBEdit

Si alguien pued ayudarme lo agradecería mucho

SALUDOS HASTA LUEGO

[MasterXP]

Empezado por vick

la pregunta es còmo hago para validar cuando se inerta una fecha inexistente, el sistema lo hace pero envia el mensaje en ingles, y yo quiero cambiarlo por uno propio, utilizo el siguiente còdigo en el evento OnSetText del campo Date

cual mensaje en Ingles tira??

tienes k tomar en cuenta que si corres el programa desde delphi el debuger hara saltar las excepciones siempre.

[luisgutierrezb]

asi como creaste la mascara del campo de fecha, tambien te sale la pestaña de eventos, y ahi viene OnValidate, donde validas el campo y lanzas una excepcion con tu mensaje personalizado, la otra, busca un componente freeware para la fecha, hay muchos y te evitan la pena de las fechas incorrectas y se ven bonitos

[lucasarts_18]

Hola:

Quizás te conviene para estos fines el control TDateTimePicker...

Hasta Luego..

[vick]

El mensaje que me arroja es excepcion class EConvert Error with the massage "10/50/2000 is not a valid date"

[vtdeleon]

Saludos

1ro: Deber fijarte en la configuración regional de tu ordenador

2do: 10/50/2000 No es una fecha validad, ni al derecho ni alrevez

3ro: Esta ejecutando tu aplicación por el IDE (con delphi)?
Como dice lucasart usa un TDateTimePicker...

Suerte

[vick]

Me dices que use un TDateTimePicker, pero cómo es que lo voy a enlazar con el campo fecha de la base de datos?

si pense en utilizar un maskedit y manipular ambos componentes, pero es muy engorroso y a veces muy tardado.

SALUDOS