Esta es la unidad que contiene el procedimiento que muestra los mensajes.
El problema es q siempre recojo el mismo codigo de error.
Código Delphi
[-]
unit UErrores;
interface
uses
Dialogs;
procedure mostrarmensajes(cod: string);
implementation
procedure mostrarmensajes(cod: string);
begin
if cod='9729' then
Showmessage('Violación de clave')
else
if cod='9733' then
Showmessage('No puede asociar un registro que no existe')
else
if cod='9734' then
Showmessage('No puede borrar el registro. Tiene registros asociados')
else
if cod='10241' then
Showmessage('No se puede abrir la tabla, está abierta por otro usuario')
else
Showmessage('Error desconocido');
end;
end.