Excepciones en firebird

[GustavoCruz]

Hola amigos del foro, tengo un db en firebird 2.1 a cuya base le he creado algunas excepciones.

mi inconveniente surge al momento de mostrar el mensaje, pues no sólo me muestra el mensaje del error sino que tambien en dónde ocurrio; lo que hago es esto.

Código Delphi [-]
with SQLQuery do
    begin
      SQL.Clear;
      SQL.Add(Cadena);
      try
        ExecSQL;
      Except
        on E: Exception do
           ShowMessage(E.ClassName+#10+#13+E.Message);
      end;
    end;

Lo que me gustaría mostrar es el texto de la excepción y nada más, por ejemplo: "No se ha suministrado información del paciente. Por favor verifique para continuar".

De antemano mil gracias por vuestro tiempo

GustavoCruz

[[duilioisola]]

Lo único que debes hacer es que Delphi maneje la excepción:

Código Delphi [-]
with SQLQuery do
    begin
      SQL.Clear;
      SQL.Add(Cadena);
      try
        ExecSQL;
        Transaction.Commit;
      finally
        Close;
      end;
    end;

Quita la parte except...end y sustitúyela por finally...end.
La parte que está después de except se ejecuta SOLO si ha ocurrido una excepción.
La parte después de finally se ejecuta SIEMPRE.
Esto te sirve por ejemplo cuando haz creado algo y sucede una excepción, para pode liberar este objeto.

[[mightydragonlor]]

esto mismo aplica para lazarus?

[[duilioisola]]

Si, en lazarus es igual.