Text in Datei speichern

[Sir Rufo]

CloseFile würde immer ausgeführt werden.
Wird aber vorher kein Append oder Reset oder Rewrite ausgeführt, dann rummst es.

Das ist genau so wie man das nicht macht:

Delphi-Quellcode:

try
  Foo := TFoo.Create;
  ...
finally
  Foo.Free;
end;

so ist es richtig

Delphi-Quellcode:

Foo := TFoo.Create;
try
  ...
finally
  Foo.Free;
end;

Stell dir jetzt vor was passiert, wenn bei der Erzeugung von Foo eine Exception auftritt.
Im ersten Beispiel bekommst du noch eine Exception hintendran, weil Foo.Free ausgeführt wird