raise Exception ?

Delphi

13/06/2005

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 erro?

try
....
.....
except
raise Exception.create(´mensagem´)
end;

Obrigado


Airto

Airto

Curtidas 0

Respostas

Marco Salles

Marco Salles

13/06/2005

nao está aparecendo mais essa mensagem, quando ocorre o erro?


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..


GOSTEI 0
Airto

Airto

13/06/2005

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


GOSTEI 0
Marco Salles

Marco Salles

13/06/2005

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 ?


voce esta dizendo que :

try 
.... 
..... 
except 
on e:Exception 
begin 
raise Exception.create(´mensagem´) 
end; 
end;


não retorna tb uma mensagem :?: :?: :?: :?: :?: :?:

Estranho.....

Não existe alguma forma, de verificar se realmente foi criado o raise ?


Insira no Aplicativo so para testar um Objeto ApplicationEvents1 :arrow: Paleta Additional....

no evento ApplicationEvents1Exception escreva

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;


PS:: Rode o programa tb fora do delphi..A partir do executavel...


GOSTEI 0
Airto

Airto

13/06/2005

Oks !


GOSTEI 0
POSTAR