Probleme mit Assigned() und TFileStream.Free

[F.W.]

Hallo!

Ich habe mal wieder ein kleines Problem:

In meinem Programm benutze ich eine globale Variable FS: TFileStream die zwischendurch mit FS.Free freigegeben wird um dann mit FS.Create(FileName, fmOpenReadWrite) eine andere Datei zu laden.

Ich überprüfe mit Assigned(FS) ob momentan eine Datei geladen ist. Nur leider funktioniert das nicht, denn nach dem Aufruf von FS.Free ist der Rückgabewert von Assigned(FS) immernoch True!

Woran liegt das? Wie kann ich den Stream richtig freigeben?

[Dax]

Nimm statt .Free FreeAndNil und schwups gehts

[Luckie]

Free entfernt nur das Pbjekt aus dem Speicher. Der Zeiger wird aber nicht zurückgesetzt. Benutze entweder FreeAndNil oder setze den Zeiger selber auf nil.

[F.W.]

Ahhhhh *knips*