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
|