Fórum Exceção do Interbase #268579

procedure TfrmPrincipal.ErroCad (Sender: TObject; E: Exception);
beep;
if E is EDBEngineError then
    MostrarErro (EDBEngineError (E))
else
    ShowMessage (E.Message);

procedure TfrmPrincipal.MostrarErro (E: EDBEngineError);
var
  I: Integer;
begin
frmErro:=TfrmErro.Create(Application);
with E.Errors[0] do
     begin
     if (Category = 38) and (ErrorCode = 9733) and (SubCode=5) then
         begin
         frmErro.lblErro.Caption:=´Registro possui alguma referência, portanto não pode ser excluído !´;
         end;
     if (Category = 38) and (ErrorCode = 9729) and (SubCode=1) then
         begin
         frmErro.lblErro.Caption:=´Código único para o cadastro está duplicado !´;
         end;
     end;
  frmErro.memErro.Lines.Clear;
  frmErro.memErro.Lines.Add(´Erro: ´ + (E.Message));
  frmErro.memErro.Lines.Add(´´);
  frmErro.memErro.Lines.Add(´Número de erros: ´ +
    IntToStr(E.ErrorCount));
  frmErro.memErro.Lines.Add(´´);
  // percorre os registros de erro
  for I := 0 to E.ErrorCount - 1 do
    begin
    frmErro.memErro.Lines.Add(´Mensagem: ´ +
      E.Errors[I].Message);
    frmErro.memErro.Lines.Add(´   Categoria: ´ +
      IntToStr(E.Errors[I].Category));
    frmErro.memErro.Lines.Add(´   Código do erro: ´ +
      IntToStr(E.Errors[I].ErrorCode));
    frmErro.memErro.Lines.Add(´   Subcódigo: ´ +
      IntToStr(E.Errors[I].SubCode));
    frmErro.memErro.Lines.Add(´   Erro Nativo: ´ +
      IntToStr(E.Errors[I].NativeError));
    frmErro.memErro.Lines.Add(´´);
    end;
frmErro.ShowModal;
frmErro.Free;
end;

Application.OnException:=ErroCad;