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);