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.

2012-01-26T23:14:35 +0100, mail[at]michael[Bindestrich]puff.de