TFileStream schließen

[cheatzs]

Hi Leutz,
hab ein TFileStream gemacht, funzt auch alles.
Leider kann ich nicht mit try ... finally arbeiten, zumindest nicht direkt für den FileStream, weil ich den über mehrere Prozedur-Aufrufe offen halten muss.

Also brauch ich ne Möglichkeit beim Schließen vorher zu prüfen ob dem FileStream eine Datei zugeordnet ist... (es könnte ja sein, während der Prozedur ist eine Exception aufgetreten und der FileStream wird nicht ordnungsgemäß geschlossen)

Ich dächte immer das ginge mit

Delphi-Quellcode:

if FileStream <> NIL then 
  FileStream.Free;

Leider bringt das immer ne Exception.
Auch das FileStream.Free allein, ohne die If-Abfrage, obwohl in der Online-Hilfe für TObject.Free steht

Zitat:

Unlike Destroy, Free is successful even if the object is nil; so if the object was never initialized, Free won’t result in an error.

, erzeugt eine Zugriffs-Fehler.

Also gibts da ne Möglichkeit??? Oder hab ich sogar die richtige Möglichkeit und der Fehler liegt womöglich wo anders?

Danke

Bye