Fórum [Dica] Verificando classes e/ou mensagens de exceção no Delphi #584876
15/08/2017
0
procedure TrataErro(excecao: Exception);
begin
case ansiindexstr(excecao.ClassName, [´classeDeErro0´, ´classeDeErro1´, ´classeDeErro2´]) of
begin
0: showMessage(´Erro 0 ocorreu!´);
1: showMessage(´Erro 1 ocorreu!´);
2: showMessage(´Erro 2 ocorreu!´);
end;
end;Obs.: É só uma ideia que tive enquanto assistia a aula Aula 46 do curso de Delphi iniciantes e quis compartilhar.
Lucas Guimarães
Curtir tópico
+ 0Post mais votado
15/08/2017
procedure TrataErro(excecao: Exception);
begin
Application.MessageBox(Pchar('Ocorreu um erro no contexto de classe: ' + excecao.ClassName), 'Erro', MB_OK + MB_ICONERROR);
end;
Obs: Só aproveitei a sua ideia e reduzi o código.
Um forte abraço.
Att, Douglas Claudio.
Douglas Souza
Gostei + 3
Mais Posts
15/08/2017
Lucas Guimarães
Gostei + 0
16/08/2017
Douglas Souza
A ideia é essa, facilitar a vida do cliente na identificaçao de erros na aplicação tratados de forma mais amigável por nós programadores, para que o mesmo possa saber o que fazer.
Precisando de alguma coisa estou por aqui.
Um abraço e sucesso nos códigos ;)
Att, Douglas Claudio
Gostei + 2
16/08/2017
Gladstone Matos
Gostei + 1
Clique aqui para fazer login e interagir na Comunidade :)