Capturar excepción Firebird en app cliente

[Casimiro Noteví]

Se me ocurre con una funtion más o menos así:

Código Delphi [-]

function  FormateaTextoExcepcion (cCadena : string) : string; 
var 
    i, l : integer; 
begin 
    i := Pos('exception 1', cCadena); 
    l := length ('exception 1'); 
    if i > 0 then 
        Result := Copy (cCadena, i+l+1, length(cCadena)-(i+l+1)+1) 
    else 
        Result := cCadena; 
end;