No Saltan las excepciones

[[sitrico]]

Tengo el siguiente código:

Código Delphi [-]
procedure TfActualizarRubros.btOkClick(Sender: TObject);
Var
Cur : TCursor;
Begin
Cur := Screen.Cursor;
Screen.Cursor := crHourglass;
  inherited;
Try
   u.Transaction.StartTransaction;
   dbMontos.DisableControls;
   Case modo of
      1 : IncluirRubro;
      2 : ModificarRubro;
      3 : BorrarRubro;
      End;
   u.Transaction.Commit;
   dbMontos.EnableControls;
Except
   On e:Exception do
      Begin
      u.Transaction.Rollback;
      ModalResult := mrNone;
      Exception.Create('Error al '+Caption+#13+
                              'Mensaje del servidor: '#13+e.Message);
      End
   End;
Screen.Cursor := Cur;
end;

Es la estructura básica que he usado desde hace tiempo para actualizar las tablas firebird. Inicio una transacción, ejecuto las sentencias SQL correspondientes y termino con un commit. Si salta una excepción ejecuto el RollBack y muestro el mensaje correspondiente.

Al probar (forzando un error) no se muestra el mensaje (exception.create...), a pesar de que por debug puedo ver que si se ejecutan las instrucciones dentro del except y se muestra la excepción del IDE de Delphi. Si lo muestro como un MessageBox si aparece el mensaje.

Esto con Delphi 7.

[[Caral]]

Hola
Yo lo hago asi:

Código Delphi [-]
 except
        on E:Exception do
        begin
           u.Transaction.RollbackTrans;
           MessageDlg('No fue posible completar la transacción',mtError,[mbOK],0);
        end;

Saludos

[[AzidRain]]

te falta volver a lanzar la excepcion con raise. Una vez manejada la excepción se debe relanzar en este caso porque vuelves a usar exception.create....yo creo que si solamente quieres mostrar el mensaje basta poner el messagedlg y hacer el raise...no tiene caso crear una nueva excepción.

[[Lepe]]

En realidad está enmascarando la excepción, para mostrar un mensaje más "amigable", no es del todo correcto, pero dado que no oculta la excepción, me parece aceptable.

Añade esto a tu linea:

Código Delphi [-]
raise Exception.Create('Error al '+Caption+#13+
                              'Mensaje del servidor: '#13+e.Message);

Si quieres lanzar la misma excepción producida dentro del bloque except, usa solo :

Código Delphi [-]
 Except
   On e:Exception do
      Begin
      u.Transaction.Rollback;
      ModalResult := mrNone;
      raise;   // lanzar la excepción original como advertencia
// una vez manejado el caso
      End
   End;

Lo que nunca debes hacer es algo así:

Código Delphi [-]
try

except
end;

Porque el programa dará un error y lo oculta, jamás serás capaz de saber que se ha producido un error y tu programa se quedará totalmente inestable a partir de ese momento.

Saludos

[[sitrico]]

Gracias a todos, en realidad ya habia cambiado a un MessajeBox, pero me tenia verde lo de no mostrar la excepción (faltaba el raise).

Juan