Lazarus, Problem mit TMemoryStream

[Gutelo]

Hallo,

ich habe eine Frage bezueglich TMemoryStream unter Lazarus. Eine Instanz wurde erstellt mittels ms := TMemoryStream.Create;

Wenn ich zweimal hintereinander ms.Free aufrufe, dann haengt sich das Programm auf. Wieso ist das so? Zwar ist die Instanz nach dem ersten ms.Free nicht mehr vorhanden, aber so wie ich das verstanden habe sollte ein Object.Free auch dann arbeiten wenn der Pointer nil ist, d.h. vorher auf nil pruefen, oder nicht?

Gutelo

[himitsu]

Weil man das nicht macht?
Ja macht es, also auf nil prüfen, aber Free setzt nichts auf nil.
Und nein, das ist nicht nur ein Lazarusproblem.

Wenn man nach dem Free nochmal auf den Instanzzeiger zugreifen will/muss, dann sollte man FreeAndNil verwenden.


Probleme haben viele, aber wo ist das "Free" im Titel?
PS: Das ist kein Problem vom Lazarus, sondern vom Compiler, also FreePascal, und das braucht man nicht in den Titel schreiben, sondern es gibt ein Präfix dafür in der Liste, oder du sgibst einfach das Lazarus mal in deinem Forenprofil an.

[Gutelo]

Mein Hauptproblem ist, dass ich nicht weiss wie ich pruefen soll, ob die Instanz schon existiert.

Ich dachte eigentlich, dass Assigned(TObject) genau das macht, aber wenn ich ein "if Assigned(ms) then ms.Free;" durchfuehre dann haengt sich das Programm ebenfalls auf.

Gutelo

[Sir Rufo]

Dann schau doch mal nach, was Assigned macht.

Assigned prüft lediglich, ob die Referenz-Variable den Wert nil hat.
Aus, basta, fertig.

Delphi-Quellcode:

function Assigned( Obj : TObject ) : Boolen;
begin
  Result := Obj <> nil;
end;

Steht da etwas anderes drin als nil , dann liefert Assigned true zurück.

Es wird nicht geprüft, ob an der angegebenen Referenz eine gültige Instanz ist!

Setze einfach nach dem Free den Wert der Referenz-Variablen auf nil und schon kannst du problemlos mit Assigned prüfen.

Du kannst dafür auch FreeAndNil benutzen, das wie folgt arbeitet:

Delphi-Quellcode:

procedure FreeAndNil( var Obj : TObject );
begin
  Obj.Free;
  Obj := nil;
end;

[Gutelo]

Was ist denn der richtige Weg zu pruefen ob sich hinter einer Variablen ein instantiiertes Objekt einer Klasse befindet?

if myObject is TObject then ... ?

[Sir Rufo]

Zitat von Gutelo:

Was ist denn der richtige Weg zu pruefen ob sich hinter einer Variablen ein instantiiertes Objekt einer Klasse befindet?

if myObject is TObject then ... ?

Es gibt keinen Weg dafür!