Ver Mensaje Individual
  #4  
Antiguo 15-07-2003
Avatar de marcoszorrilla
marcoszorrilla marcoszorrilla is offline
Capo
 
Registrado: may 2003
Ubicación: Cantabria - España
Posts: 11.221
Reputación: 10
marcoszorrilla Va por buen camino
Prueba con este ejemplo, un poco forzado pero funciona:

Bájate un TApplicationEvents lo tienes en la paleta adicional y para interceptar este error de conversión, que no la lanza el BDE, sino Delphi pones este código, solamente pongo el ejemplo con fechas, pero con tiempos funcionará igual interceptando el mensaje correspondiente.

Código:
procedure TForm1.ApplicationEvents1Exception(Sender: TObject;
  E: Exception);
begin
  if (lowercase(copy(E.Message,(Length(E.Message) - 18),19 )))='is not a valid date' then
  Application.MessageBox('La fecha introducida no es correcta','Atención',mb_Ok +
  mb_IconQuestion);
end;
Un Saludo.
Responder Con Cita