cambiar los mensajes de error de interbase
Publicado por Joan Carles (5 intervenciones) el 28/05/2004 18:20:27
envio este e-mail para ver si alguien me puede ayudar con el problema que tengo, estoy realizando una aplicacion en delphi y quiero que los mensajes de error que salen salgan de una forma humana esto ya lo he conseguido, pero tambien quiero que me salga el numero de error en question, esto es lo que me falla. yo lo he intentado hacer de esta forma:
procedure TFrmvehiculodetalles.tratarexcepciones(sender: tobject; e : exception);
begin
if e.ClassNameIs('eibinterbaseerror') then
showmessage(format('iberrorcode: %d - sqlerrorcode: %d',[EIBInterbaseError(e).IBErrorCode,EIBInterbaseError(e).SQLCode])+#13+ 'Mensaje: '+e.Message)
else
ShowMessage(E.Message);
end;
y me da los siguientes errores:
undeclared identifier:'eibinterbaseerror'; etc.
que puedo hacer para arreglar este problema.
procedure TFrmvehiculodetalles.tratarexcepciones(sender: tobject; e : exception);
begin
if e.ClassNameIs('eibinterbaseerror') then
showmessage(format('iberrorcode: %d - sqlerrorcode: %d',[EIBInterbaseError(e).IBErrorCode,EIBInterbaseError(e).SQLCode])+#13+ 'Mensaje: '+e.Message)
else
ShowMessage(E.Message);
end;
y me da los siguientes errores:
undeclared identifier:'eibinterbaseerror'; etc.
que puedo hacer para arreglar este problema.
Valora esta pregunta


0