Tratamento de erros no Delphi (Try, Except, Finally, Raise, Exception e ApplicationEvents)

É impossível criar um software e nunca ocorrer um erro durante a execução do mesmo, as vezes por algum defeito na rede, ou por o usuário não seguir corretamente a maneira correta de uso do software.

Como, não podemos impedir que os erro ocorram em nossas aplicações, devemos no mínimo tratar e personalizar as mensagens de erro para que o usuário saiba o motivo do erro e assim agir da forma correta para corrigir. 

Exceções em Delphi 

São utilizadas para tratamento de erros, e ao ser criada todos os procedimentos que ainda estão pendentes são cancelados, e mostra uma mensagem de erro que você mesmo poderá configurar para ser exibida de acordo com a sua vontade

Bloco Protegido

Um bloco protegido é um grupo de comandos com uma seção de tratamento de exceções.

Try 

  A := StrToFloat(EdtA.Text);   B := StrToFloat(EdtB.Text); 
  ShowMessage(Format("%f / %f = %f", [A, B, A + B])); 

Except 

  ShowMessage("Números inválidos."); 

end;

As vezes você pode precisar especificar quais exceções quer tratar, como mostrado abaixo:

Try 

  Soma := StrToFloat(EdtSoma.Text); 

  NumAlunos := StrToInt(EdtNum.Text); 

  ShowMessage(Format("Média igual a %f.", [Soma / NumAlunos])); except

 on EConvertError do 

   ShowMessage("Valor inválido para soma ou número de alunos."); 

 on EZeroDivide do 

   ShowMessage("O número de alunos tem que ser maior que zero.");

 else 

 ShowMessage("Erro na operação, verifique os valores digitados."); end;

Principais Exceções

CLIQUE NA IMAGEM PARA AMPLIAR

Blocos de finalização 

são executados sempre, haja ou não uma exceção. Geralmente os blocos de finalização são usados para liberar recursos.

FrmSobre := TFrmSobre.Create(Application); 

 Try 

  FrmSobre.Img.LoadFromFile("Delphi.bmp");

  FrmSobre.ShowModal; 

  finally 

   FrmSobre.Release; 

end;

Você pode usar blocos de proteção e finalização aninhados 

FrmOptions := TFrmOptions.Create(Application); 

 Try 

   FrmOptions.ShowModal; 

  Try 

   Tbl.Edit; 

   TblValor.AsString := EdtValor.Text; 

    except 

      on EDBEngineError do 

         ShowMessage("Alteração não permitida."); 

      on EConvertError do 

         ShowMessage("Valor inválido."); 

  end; 

     finally 

      FrmOptions.Release; 

end;

Geração de Exceções

provocando uma exceção utilizando a cláusula raise.

    raise EDatabaseError.Create("Erro ao alterar registro.");


Também é possível criar seus próprios tipos de exceções.

  type 

  EInvalidUser = class (Exception); 

  raise EInvalidUser.Create("Você não tem acesso a essa operação.");


Se você quiser que uma exceção continue ativa, mesmo depois de tratada, use a cláusula raise dentro do bloco de tratamento da exceção. Geralmente isso é feito com exceções aninhadas.

try 

   Tbl.Edit; 

   TblContador.Value := TblContador.Value + 1;

   Tbl.Post; 

  except 

    ShowMessage("Erro ao alterar contador."); 

  raise; 

end; 

Erros de Bancos de Dados

A exceção EDBEngineError permite a identificação de erros de bancos de dados gerados pela BDE.

try 

 TblCli.Post; 

  except 

   on E: EDBEngineError do 

   if E.Errors[0].ErrorCode = DBIERR_KEYVIOL then

    ShowMessage("Cliente já cadastrado."); 

end;

Note que a variável E, que vai identificar o erro, só precisa ser declarada no bloco de tratamento da exceção. No help você pode consultar outras propriedades de EDBEngineError que podem ser importantes.

Você também pode usar os eventos de erro do componente Table, sem precisar de blocos de tratamento.

procedure TFrmCadCli.TblCliPostError(DataSet: TDataSet; E: EDatabaseError; Action: TDataAction); 

var 

 begin 

  if(E is EDBEngineError) then 

   with EDBEngineError(E) do 

    case Errors[0].ErrorCode of 

     DBIERR_KEYVIOL: ShowMessage("Cliente já cadastrado.");

     DBIERR_REQDERR: ShowMessage("Campo obrigatório não preenchido.");

    end 

    else 

       ShowMessage("Erro no banco de dados:" + #13#13 + E.Message); 

       Action := daAbort; 

end;

Alguns códigos de erro da BDE estão listados abaixo. Todas as constantes e funções relacionadas à API da BDE no Delphi 3 estão na Unit BDE, que deve ser adicionada à cláusula uses. No BDE API Help você pode encontrar referência sobre as funções nativas da BDE, como também alguns exemplos em Delphi.

CLIQUE NA IMAGEM PARA AMPLIAR

Se você quiser mais informações a respeito do erro pode usar o procedimento DBIGetErrorContext, como na função mostrada abaixo que retorna determinadas informações sobre o erro.

function GetErrorInfo(Context: SmallInt):string; 

  begin 
    SetLength(Result, DBIMAXMSGLEN + 1); 

   try 

    DbiGetErrorContext(Context, PChar(Result)); 

    SetLength(Result, StrLen(PChar(Result)));

    except 

     Result := ""; 

   end; 

  end; 

No evento OnEditError, usado no exemplo abaixo, se ocorrer um erro ao tentar alterar um registro, podemos identificar o usuário da rede que está alterando esse registro usando a função criada anteriormente.

if Pos("locked", E.Message)> 0 then 

 ShowMessage("Usuário """ + GetErrorInfo(ecUSERNAME) + """ está alterando o registro."); 

Note que foi usada uma outra técnica de identificação do erro, usando a própria mensagem de erro e não o código, como mostrado anteriormente. Você pode usar a função criada acima mandando como parâmetro os valores mostrados abaixo, que podem ser encontrados no help da BDE.

CLIQUE NA IMAGEM PARA AMPLIAR

Para desenvolver um sistema genérico de tratamento de erros, considere a opção de criar esse tratamento em um DataModule genérico para ser usado como ancestral por todos os DataModules do sistema, utilizando a herança visual.

Se o único problema for traduzir as mensagens, localize os arquivos CONSTS.INT e DBCONSTS.INT e crie uma nova Unit de definição de strings com uma estrutura semelhante a mostrada abaixo e juntando todas as definições das constantes das duas Units devidamente traduzidas. Depois, basta usar essa Unit em seus projetos que as novas mensagens irão sobrepor as anteriores.
unit NewConsts;

interface

resourcestring
SAssignError = "Não é possível atribuir %s a %s";
SFCreateError = "Não é possível criar arquivo %s";
SFOpenError = "Não é possível abrir arquivo %s";
iSInvalidFieldSize = "Tamanho de campo inválido"; SInvalidFieldRegistration = "Registro de campo inválido";
SUnknownFieldType = "Campo ""%s"" tem um tipo desconhecido";

 implementation 

end.

fonte: http://www.linhadecodigo.com.br