Tratamento de Erros

[TheMaker 0]

Oi galera!

 

Seguinte:

 

Alguém sabe de alguma função que eu possa chamar direto de Application.OnException

que me retorne o nome da Unit e a linha onde ocorreu o erro?

 

Um Abraço!

http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

[bastard2003 4]

cara da uma olhada no componente "ApplicationEvents" na propriedade "OnException" axo q ali tu tem como tratar esses erros!

[TheMaker 0]

Salve bastard2003, seguinte:

o ApplicationEvents no seu evento onexception tem como parametros E: Exception; Sender : TObject

 

"E" me retorna no máximo a mensagem original do erro (E.mesage)

 

"Sender" retorna a Classe ou componente origem da rotina.

 

O q eu preciso seria algo do tipo:

 

Se eu clicar em um botão simples..

 

Begin

ShowMessage(RetornaProcedure + ' ' + IntToStr(RetornaLinha))

End;

 

"Function RetornaProcedure : String" Me traria o nome da Function ou Procedure onde o programa executa no momento.

 

"Function RetornaLinha : Integer" o nº da linha no código fonte dessa mesma procedure.

 

Acredito ser uma solução bem eficaz na busca por erros ou bugs que nos fazem perder muito tempo as vezes, de qualquer forma valeu pela força! http://forum.imasters.com.br/public/style_emoticons/default/clap.gif

 

Caso você ou qualquer outro usuário do fórum souber de algo é só postar!

Um abraço!