Sauberes Filehandling

[Scotty]

The finally clause should therefore handle all locally raised exceptions, so as not to disturb propagation of other exceptions.

Wenn zwischen try-finally ein try-except steht, kann es keine Exception geben, die nicht ausgelöst wurde. Innerhalb des finally-Blocks würde ich prinzipiell nur Free's machen. Wenn da etwas schief geht, brauche ich auch kein except mehr; dann stimmt etwas ganz anderes nicht.
Machbar ist dein Vorschlag natürlich, sicher auch nicht falsch und man hat ja auch einen eigenen Stil.

[marcov]

Achtung: TFileStream udn TStringList gehören zu FCL nicht zur LCL!

Falsch, die gehören zur RTL. Deshalb habe ich auch die LCL als Beispiel genommen, weil ohne RTL eh nicht viel läuft.

(Seit 2.0.0, dafür im FCL)