Tratamento de exceções customizadas
Olá, galera.
No C#, eu vi como criar minhas próprias classes de Exceções e usá-las para o tratamento de erros no sistema. Tem como fazer o mesmo no Delphi? Até agora só vi códigos usando try...except...end mas nada onde eu pudesse customizar a mensagem, por exemplo.
Obrigada.
No C#, eu vi como criar minhas próprias classes de Exceções e usá-las para o tratamento de erros no sistema. Tem como fazer o mesmo no Delphi? Até agora só vi códigos usando try...except...end mas nada onde eu pudesse customizar a mensagem, por exemplo.
Obrigada.
Rachel Andrade
Curtidas 0
Respostas
Bruno Leandro
03/08/2012
Ola seria algo conforme modelo a baixo ?
try
raise Exception.Create(teste);
except
on e:Exception do
ShowMessage(e.Message);
end;
try
raise Exception.Create(teste);
except
on e:Exception do
ShowMessage(e.Message);
end;
GOSTEI 0
Rachel Andrade
03/08/2012
Oi, Bruno, obrigada pela resposta.
No caso, o raise Exception.Create(teste) está criando uma exceção com a mensagem teste, é isso?
Só existe a classe Exception? Não tem nada como OuterOfBoundsException ou ConvertException?
No caso, o raise Exception.Create(teste) está criando uma exceção com a mensagem teste, é isso?
Só existe a classe Exception? Não tem nada como OuterOfBoundsException ou ConvertException?
GOSTEI 0
Marco Salles
03/08/2012
Oi, Bruno, obrigada pela resposta.
No caso, o raise Exception.Create(teste) está criando uma exceção com a mensagem teste, é isso?
Só existe a classe Exception? Não tem nada como OuterOfBoundsException ou ConvertException?
No caso, o raise Exception.Create(teste) está criando uma exceção com a mensagem teste, é isso?
Só existe a classe Exception? Não tem nada como OuterOfBoundsException ou ConvertException?
Existem muitas exceções do delphi que desceddem da classe Exception da uses unit System.SysUtils;
Vc pode definir também uma exceção especifica do tipo
type
TExcecaoRachel = class (Exception);
procedure TForm2.Button3Click(Sender: TObject);
begin
try
raise TExcecaoRaquel.Create(Mensagem de Raquel);
except
on e:EConvertError do
Showmessage(A exceção foi devido a um erro de conversão);
on e:TExcecaoRaquel do
Showmessage(A exceção foi devido a um erro do tipo+
e.ClassName+sLineBreak+
mesangem Original :+e.Message);
on e:Exception do
Showmessage(A exceção Gerada não é de nehum do tipo anterior);
end;
dúvidas ???
[]sds
GOSTEI 0