FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
Intentando con Try ....
Hola a todos...
Estoy intentando validar una entrada de fecha en un MaskEdit con el siguiente codigo: ******** procedure TfrmSolicitud.edFnacExit(Sender: TObject); var Hoy : TDateTime; Year, Month, Day: Word; begin try begin Hoy := strtodate(edFnac.text); // cargo Hoy con la cadena del MaskEdit DecodeDate(Hoy, Year, Month, Day); // intento la decodificación Editboxsiguiente.setfocus; // si la fecha es correcta y no ocurre error pasa siguiente control. end; except // Si ocurre un error : begin Application.MessageBox('Fecha erronea....', 'Advertencia',Mb_Ok+Mb_IconStop); // mensaje de error al usuario edFnac.setfocus; // escribir nuevamente la fecha end; end; **************** El caso es que cuando se introduce un fecha correcta, pasa al control siguiente sin problemas, pero al introducir una fecha erronea, primero me muestra una exepción y luego mi mensaje de fecha erronea. Obiamente quiero que salga mi mensaje para que el usuario corrija y no vea esa exepción. Que creen que este pasando? Saludos y gracias....
__________________
if Vivir = Vivir + Aprender then Aprender = ? Alfredo Borges |
#2
|
||||
|
||||
#3
|
|||
|
|||
Seguramente será porque lo estás ejecutando desde el propio Delphi. Si lo ejecutas desde fuera de Delphi (directamente el exe que creas) no te saldrá el mensajito en inglés.
Aparte, a partir de Delphi 6 (creo) tienes la función TryDateToStr (o algo así) que ya te hace el trabajo del try..except..end; |
#4
|
||||
|
||||
Cita:
// Saludos Para los cyber-arqueólogos del futuro: Este fue el mensaje 1000 |
#5
|
|||
|
|||
Pues continualdo ese hilo... yo me quedaría con el TDateEdit de la Rx que ya la validan por ti
Cita:
|
#6
|
||||
|
||||
Cita:
// Saludos |
#7
|
||||
|
||||
Para llegar al milenario
un millar de mensajes es necesario. Enhorabuena Román. Un Saludo.
__________________
Guía de Estilo de los Foros Cita:
|
|
|
|