Buscar por:

Rotina genérica para tratamento de erros na aplicação - bde

Código

Procedure TrataErro(vErro : EDBEngineError); 

  Var 

  x : Integer; 

Begin 

  For x := 0 To vErro.ErrorCount -1 Do 

  Begin 

  If vErro.Errors[x].NativeError=0 Then 

  Case vErro.Errors[x].ErrorCode Of 

  9475:Erro('Espaço Insuficiente em Disco.'); 

  9479:Erro('Tabela Está Cheia'); 

  9429:Erro('Espaço Insuficiente em Disco.'); 

  9432:Erro('Campo Obrigatório Sem Valor.'); 

  ... 

  10241:Erro('Registro em Uso Por Outro Usuário.'); 

  Else 

  Erro('Comunique o Erro Abaixo ao Departamento de Informática.'+#13+ 

  IntToStr(vErro.Errors[x].ErroCode+'-'+vErro.Errors[x].Message); 

  End; 

  End; 

End; 

ou 

Procedure MostraErro; 

Begin 

ShowMessage('Ocorreu algum erro!'); 

end; 

TForm1.Create; 

Begin 

Application.OnException:=MostraErro; 

end;