ayuda excepciones

[ContraVeneno]

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.

[yevabas]

gracias por tu ayuda ya esta funcionando no se porq antes no lo hacia.
estaría cometiendo algún error pero ya quedo como quería de nuevo muchas gracias por el tiempo que me dedico y por la gran ayuda prestada...

[ContraVeneno]

Empezado por yevabas

...no se porq antes no lo hacia...

Pues si solo cambiaste el "raise" por un mensaje... pues era eso...

El detalle es que la instrucción "Raise" te genera la excepción en el programa y este le da todo el tratamiento que se le da a un error.

Al cambiarlo por un mensaje, pues es solo eso, un mensaje, no hay error y el programa continua.