Delphi - Eigene Exceptions
program Project3;
{$APPTYPE CONSOLE}
uses
SysUtils;
type
EDoSomething = class(Exception)
end;
EDoSomeMore = class(Exception)
end;
procedure DoSomething;
begin
raise EDoSomething.Create('Fehler in DoSomething');
end;
procedure DoSomeMore;
begin
raise EDoSomeMore.Create('Fehler in DoSomeMore');
end;
begin
try
DoSomething;
DoSomeMore;
except
on E: EDoSomething do
Writeln(E.Message);
on E: EDoSomeMore do
Writeln(E.Message);
// alle anderen Exceptions
on E: Exception do
Writeln(E.Message);
end;
Readln;
end.