raise Exception ?

Question

bom dia!Gostaria de saber se existe alguma possibilidade de verificar se o comando raise Exception.create(´mensagem´), foi realmente criado, nao está aparecendo mais essa mensagem, quando ocorre o err...

Marco Salles · Answer

[quote:0bbc151127]nao está aparecendo mais essa mensagem, quando ocorre o erro? [/quote:0bbc151127]Para que isto ocorra voce pode escrever:try .... ..... except  on e:Exception  begin    raise Exception.create(´mensagem´)   end;end; que daria o mesmo efeito:::try .... ..... except  on e:Exception  begin   showmessage(´mensagem´) ;  end;end; na prática , o usuário não ve diferença.. A diferença a esta somente a nivel de programação.. E que no primeiro codigo , alem da exceção que o programa gera ,  voce esta gerando tb uma exceção.....

Airto · Answer

só funciona com showmessage !Ma o projeto inteiro foi feito com raise!Não existe alguma forma, de verificar se realmente foi criado o raise ?Obrigado...

Marco Salles · Answer

[quote:cfe525d238]só funciona com showmessage ! Ma o projeto inteiro foi feito com raise! Não existe alguma forma, de verificar se realmente foi criado o raise ? [/quote:cfe525d238]voce esta dizendo que :[code:1:cfe525d238]try .... ..... except on e:Exception begin raise Exception.create(´mensagem´) end; end; [/code:1:cfe525d238]não retorna tb uma mensagem  :?:  :?:  :?:  :?:  :?:  :?: Estranho.....[quote:cfe525d238]Não existe alguma forma, de verificar se realmente foi criado o raise ? [/quote:cfe525d238]Insira no Aplicativo so para testar um Objeto ApplicationEvents1 :arrow:  Paleta Additional....no evento ApplicationEvents1Exception escreva[code:1:cfe525d238]procedure TFormSort.ApplicationEvents1Exception(Sender: TObject;  E: Exception);begin  showmessage(´Claro que aparece a mensagem : ´ + e.message ´+´ Pois   a exceção foi criado com Raize´);end;[/code:1:cfe525d238]PS:: Rode o programa tb fora do delphi..A partir do executavel......

Airto · Answer

Oks !...

Fórum raise Exception ? #284461