Fórum Como tratar erro de FK em FB e Delphi #327548

begin
  if (E is EDBEngineError) then
  begin
    if (E as EDBEngineError).Errors[0].Errorcode = eKeyViol then
    begin
      MsgErro(´Registro já cadastrado.´);
      abort;
    end
    else if (E as EDBEngineError).Errors[0].Errorcode = eForeignKey then
    begin
      MsgErro(´Dado inválido.´);
      abort;
    end;
  end;
end;

  if (E is EDBEngineError) then begin
    if (E as EDBEngineError).Errors[0].Errorcode = eKeyViol then begin
      MsgErro(´Registro já cadastrado.´);
      abort;
    end
    else if (E as EDBEngineError).Errors[0].Errorcode = eForeignKey then begin
      MsgErro(´Dado inválido.´);
      abort;
    end;
  end;
  if (E is EDBClient) then begin
    if (E as EDBClient).Errorcode = eKeyViol then
    begin
      MsgErro(´Registro já cadastrado.´);
      abort;
    end
    else if (E as EDBClient).Errorcode = eForeignKey then begin
      MsgErro(´Dado inválido.´);
      abort;
    end;
  end;
end;