Fórum Tratamento de exceções customizadas #421022

Ola seria algo conforme modelo a baixo ?


try
raise Exception.Create(teste);
except
on e:Exception do
ShowMessage(e.Message);

end;

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?

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