Ver Mensaje Individual
  #7  
Antiguo 17-11-2010
Avatar de ContraVeneno
ContraVeneno ContraVeneno is offline
Miembro
 
Registrado: may 2005
Ubicación: Torreón, México
Posts: 4.740
Reputación: 26
ContraVeneno Va por buen camino
en lugar de poner "Raise" para que te muestre el mensaje del error... utilizar ShowMessage o un cuadro de diálogo.
Código Delphi [-]
with Form1.IBTable1 do begin 
 try
  Post; // Guardamos los cambios.
 except
  on  E: EIBInterBaseError do begin
   Cancel; // <<-- Aquí cancelas  los cambios...
   case E.IBErrorCode of
     335544665: begin
       //si ocurre este error
      end; 
     else
      //este ya no: raise; //cualquier error que no esté dentro del case muestra el mensaje
      showmessage(E.Message +', ' + E.ClassName +', '+ E.IBErrorCode);
   end; //case
  end; //E:EIBInterbaseError
end; //with

Con esto te muestra el mensaje, pero no lo hace como una excepción y debería continuar con el siguiente proceso.
__________________


Última edición por ContraVeneno fecha: 18-11-2010 a las 21:23:33.
Responder Con Cita