Kleiner Exkurs zu Exceptions (try finally/except)

[jobo]

Mir ist die Sache durch die Quellcodekommentare aufgefallen.

Deine Beispiel erscheint mir aber etwas seltsam. (Randnotiz, wieso kann man das nicht zitieren?)

Zitat:

...
try
i := IntToStr(s);
except
WriteLn('Es ist ein Fehler aufgetreten. s ist kein Integer);
end;
...

Es würde wohl einen Kompilerfehler ergeben. Das fehlende Anführungszeichen deutet auch darauf hin, dass Du es nur getippt und nicht laufen lassen hast.

So oder so:
Bei
intToStr würde man wohl eher
s := IntToStr(i);

verwenden und das Beispiel würde Sinn ergeben, wenn man wie oben irgendwo die Funktion StrToInt() verwendet, was Du vermutlich eigentlich machen wolltest. Hier können prima Laufzeitfehler auftreten, die als Opfer für Try Except herhalten können:

i := StrToInt(s);

[MaBuSE]

Zitat von jobo:

Mir ist die Sache durch die Quellcodekommentare aufgefallen.
Deine Beispiel erscheint mir aber etwas seltsam. ...
Es würde wohl einen Kompilerfehler ergeben. Das fehlende Anführungszeichen deutet auch darauf hin, dass Du es nur getippt und nicht laufen lassen hast.

Danke
Du hast absolut Recht. Ich hab hier gerade kein Delphi zur Hand.

Ich hab das mal schnell korrigiert

[himitsu]

Die CLI-Vorlage hat IMHO auch schon immer eine kleines Fehlerchen.
Wenn die Anwendung direkt und nicht aus einer Konsole mit Output-Stream gestartet wurde, dann sollte nach dem Except+WriteLn(E.Message) noch ein ReadLn rein, denn sonst kann doch niemand die Exception lesen


Schade ist tzwar, dass man Try/Finally/Except bzw. Try/Except/Finally nicht "direkt" kombinieren kann (also ein Try gefolgt von mehreren Except/Finaly).
Aber naja.

Indirekt geht es, allerdings nur zum Antzeigen der Exception, bzw. zum zusätzlich darauf reagieren.

Zitat:

try
...
finally

E := System.ExceptObject as Exception; // analog zum "on E: Exception" im except, aber das implizite "raise;" bleibt drin
...

end;

[MaBuSE]

Zitat von himitsu:

Die CLI-Vorlage hat IMHO auch schon immer eine kleines Fehlerchen.
Wenn die Anwendung direkt und nicht aus einer Konsole mit Output-Stream gestartet wurde, dann sollte nach dem Except+WriteLn(E.Message) noch ein ReadLn rein, denn sonst kann doch niemand die Exception lesen

Nein

Du kannst auch aus einer GUI Anwendung jederzeit mit AllocConsole; eine Console öffen, um mit Write darin zu schreiben.
Mach ich oft für Debugausgaben