Ich finde das Thema toll, weil ich genau so ein Problem gerade habe und nicht weiß, wieso das so ist.
Zum Hintergrund:
Ich habe einen "Out of memory"-Fehler bekommen. Also habe ich in den Bereich hineingesehen und bemerkt (irrtümlich aber wie es nun scheint), daß ich viel mit .create mache, aber am Ende gar kein .free setze.
Also habe ich die Methoden ergänzt um jeweils try .. finally
Es sind solche Dinge:
Delphi-Quellcode:
var json, p1, p2: TJSONObject;
jsonArr: TJSONArray;
JsonToSend : TStream;
In dieser Procedure baue ich also eine JSON-Struktur aus, die ich dann an ein Gerät sende. Das funktioniert soweit prima (bis halt irgendwann Out of Memory kommt).
Am Ende bin ich dann auf die Idee gekommen, ich sollte alles, was ich mit .create in der Procedure erstelle, auch wieder freigeben.
Zwischendrin habe ich auch mal sowas geschrieben:
Delphi-Quellcode:
if isCassette<>'TX' then
p1 := TJSONObject.Create
else
p1:=json; //gleiche Ebene
Und am Ende dann also (wobei ich in vielen Quelltextbeispielen am Ende keine Freigaben gesehen habe; mein Memoryleak scheint also woanders in der Verwendung mit JSON zu liegen) geschrieben:
Delphi-Quellcode:
finally
FreeAndNil(JsonToSend);
FreeAndNil(jsonArr);
FreeAndNil(p1);
FreeAndNil(p2);
FreeAndNil(json);
end;
In der umgekehrten Reihenfolge habe ich jeweils .create gemacht (also erst json, dann die p1,p2 und dann jsonArr und zuletzt JsonToSend). Ich nehme an, daß die Reihenfolge der Freigabe auch wichtig ist.
Da habe ich dann aber eine "Ungültige Zeigeroperation" bekommen.
Ich habe dann die
Exception eingegrenzt zu FreeAndNil(json). json ist ein TJSONObject. Es scheint aber trotz seines naheliegenden Namens keine Ableitung von TObject zu sein, weil es dort knallt!?
In der Hilfe zu "FreeAndNil(var Obj)" ist zu lesen: "Warnung: Obj muss eine Instanz einer von TObject abgeleiteten Klasse sein" - aha, und was wäre die Folge wenn nicht?? Und woher weiß ich welche Objekte, mit denen ich .create mache, von TObject abgeleitet sind?! Die Hilfe ist oft nicht wirklich hilfreich. Bin so froh, daß es dieses Forum hier gibt.
Habs dann so versucht:
Delphi-Quellcode:
finally
JsonToSend.Free;
jsonArr.Free;
json.Free;
p1.Free;
p2.free;
end;
Knallt trotzdem bei json.free
Kann ich denn überhaupt .Free machen, wenn die json bereits NIL wäre?
Müsste ich dann vorsichtshalber "if assigned(json) then json.free" schreiben?
Oder wäre "if json<>nil then json.free" besser?
Bin verwirrt.
Was mache ich falsch und warum?