Und schon wieder ein Quiz zum Thema Exceptions. Gegeben sei dieser Quelltext:

zusammenfalten · markieren

Delphi-Quellcode:

program FunWithDelphi;
 
{$APPTYPE CONSOLE}
 
uses
  Controls, SysUtils;
 
begin
  try
    raise TMouse.Create;
  except
    on E:Exception do
    begin
      Writeln(E.Classname, ': E is Exception');
    end;
    on E:TObject do
    begin
      Writeln(E.Classname, ': E is TObject');
    end;
    on E:TMouse do
    begin
      Writeln(E.Classname, ': E is TMouse');
    end;
  end;
  ReadLn;
end.

Was wird geschehen?

• das Programm gibt “TMouse: E is Exception” aus
• das Programm gibt “TMouse: E is TObject” aus
• das Programm gibt “TMouse: E is TMouse” aus
• der Compiler stoppt mit einer Fehlermeldung
• das Programm endet mit einem Laufzeitfehler

Wer es es richtig errät, darf natürlich hier posten was geschieht (und warum). Wer es nicht errät, drückt F5 im Browser bis die Antwort erscheint

Zitat:

das Programm gibt “TMouse: E is TObject” aus

Ist eigentlich logisch. TMouse ist nicht von Exception abgeleitet, von daher kann das nicht zutreffen und ansonsten zählt: Wer zuerst kommt, mahlt zuerst.
Ich wusste allerdings nicht dass man auch Nicht-Exception-Klassen raisen kann. Ich habe also ein bisschen geschummelt weil ichs ausprobiert habe :X

Stimmt.

Joar, kann man ... drum ist System.ExceptObject auch ein TObject und keine Exception. (naja, abgesehn von der lage deren Definition ... SysUtils )
Wenn die Exception aus einer DLL kommt, dann ist es dort eine andere Exception-Klasse, wie im eigenen Modul ... im Grunde ist es da nichtmal mehr ein TObject, da ebenfalls unterschiedliche RTTI.

PS: Du hast das ELSE vergessen.

Ich bin hin und hergerissen zwischen dem "TMouse: E is TObject" und einem Laufzeitfehler.
Ich glaube schon eher letzteres...


// Jetzt doch einmal ausprobiert. Interessant am Rande ist dass die IDE nicht anhält. Bei der ... TMouse.

Eine Exception in der Exceptionbehandlung ist auch immer was Schönes ... da beendet Windows gleich den kompletten Prozess, da Diese direkt und ungebremst bis zum Windows durchrauscht.

raise Exception(nil);

Zitat von himitsu:

Eine Exception in der Exceptionbehandlung ist auch immer was Schönes ... da beendet Windows gleich den kompletten Prozess, da Diese direkt und ungebremst bis zum Windows durchrauscht.

Ehrlich gesagt finde ich das legitim. Wenn an der Stelle Fehler auftreten, ist vermutlich eh alles verloren. Man könnte eventuell noch eine weitere Exception aus der Runtime-Bibliothek werfen, die garantiert fehlerfrei () ist. Wenn das auch noch fehlschlägt ... dann waren einem die Maschinengötter wohl nicht gnädig.

Ein Try-Except im Exception-Handling ... wir lieben doch unsere Endlosschleifen.

Zitat von Der schöne Günther:

// Jetzt doch einmal ausprobiert. Interessant am Rande ist dass die IDE nicht anhält. Bei der ... TMouse.

Das hatte mich auch überrascht. Die Delphi Dokumentation benennt sogar eine Exceptionklasse in der VCL, die nicht von SysUtils.Exception abgeleitet ist: OutlineError. Die würde in einem except on Exception (...) nicht behandelt, sondern nur im else oder wenn man auch on TObject oder explizit mit on OutlineError.