Ver Mensaje Individual
  #6  
Antiguo 12-08-2005
Avatar de ContraVeneno
ContraVeneno ContraVeneno is offline
Miembro
 
Registrado: may 2005
Ubicación: Torreón, México
Posts: 4.738
Reputación: 23
ContraVeneno Va por buen camino
Código Delphi [-]
Try
 //aqui haces lo que tenga que hacer
Except on E:Exception do //podría ser E:EdbEngineError tu decides 
 if (E is EDBEngineError) then 
  with EDBEngineError(E).Errors[0] do 
   if ErrorCode = 9729 then begin 
    //aqui tu forma de tratar el problema, ya se aun mensaje, 
    //una acción, un beep, lo que tu creas conveniente.
   end else 
    //si fue algun otro # de error que no esperabas, mostrar la excepción.
    raise; 
 else
  //en caso que no sea un EDBEngineError, mostar el error.
  raise;
end; //try

Busca en internet "BDE ERROR CODES", si quieres conocer los demás errores.
__________________


Última edición por ContraVeneno fecha: 12-08-2005 a las 20:05:02.
Responder Con Cita