Delphi-PRAXiS - Delphi Probleme mit Assigned() und TFileStream.Free

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)

- - Delphi Probleme mit Assigned() und TFileStream.Free (https://www.delphipraxis.net/64743-probleme-mit-assigned-und-tfilestream-free.html)

F.W.	7. Mär 2006 18:05

Probleme mit Assigned() und TFileStream.Free

Hallo! :hi:

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	7. Mär 2006 18:07

Re: Probleme mit Assigned() und TFileStream.Free

Nimm statt .Free FreeAndNil und schwups gehts ;)

Luckie

7. Mär 2006 18:08

Re: Probleme mit Assigned() und TFileStream.Free

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.	7. Mär 2006 18:21

Re: Probleme mit Assigned() und TFileStream.Free

Ahhhhh *knips* :idea:

:thumb:

Alle Zeitangaben in WEZ +1. Es ist jetzt 10:33 Uhr.