TObjectList JsonToObject MemoryLeak

[ScharfeMietze]

Delphi-Quellcode:

var
  LsList: TStringList;
begin
LsList := TStringList.Create;
  try
    LsList.LoadFromFile(FPath + DataFileName);
    FShadowData:= LsList.Text;
    FAnsagenListe := TJson.JsonToObject<TObjectList<TAnsagen>>(LsList.Text); //memory Leak
    FillAnsagenListe;
  finally
    LsList.Free;
  end;  // try
end;

Hallo, Ich habe eine Frage, mir reißt es durch diese Zeile ein MemoryLeak. Das wird mir beim schließen (ReportMemoryLeaksOnShutdown) angezeigt.
Der Code tut zwar was er soll und es ist auch bei dem Tool an sich zu verschmerzen, aber ich würde gerne in Zukunft weiter damit arbeiten.
Frage: Wie muss der Code aussehen damit ich kein Memoryleak bekomme?
Dank euch

[t2000]

Gibst du die FAnsagenliste wieder frei?

[ScharfeMietze]

Ja, die Liste wird beim close freigegeben.

Delphi-Quellcode:

begin
if Assigned(FAnsagenListe) then FAnsagenListe.Free;
ReportMemoryLeaksOnShutdown:= True;
end

AHHHHHHHHHHber du hast mich auf die Lösung gebracht! Vielen Dank!!!
Das Problem war nicht das freigeben. Sondern das ich brav und artig wie immer diese Liste beim Start "created" habe.
mit
FAnsagenListe:= TObjectList<TAnsagen>.Create; Das scheint aber zuviel zu sein, lasse ich die Zeile beim Start weg, läuft es!
Bedeutet das bei FAnsagenListe := TJson.JsonToObject<TObjectList<TAnsagen>>(LsList.Text); zusätzlich noch eine Liste erstellt wurde.

[Uwe Raabe]

Zitat von ScharfeMietze:

Bedeutet das bei FAnsagenListe := TJson.JsonToObject<TObjectList<TAnsagen>>(LsList.Text); zusätzlich noch eine Liste erstellt wurde.

Ja, das ist in der Tat so. Durch die Zuweisung wird die Variable neu gesetzt und die ursprüngliche Instanz wird zu einer Speicherleiche.

Alternativ zum Weglassen des FAnsagenListe:= TObjectList<TAnsagen>.Create; kannst du auch vor der Zuweisung ein Free aufrufen:

Delphi-Quellcode:

FAnsagenListe.Free;
FAnsagenListe := TJson.JsonToObject<TObjectList<TAnsagen>>(LsList.Text);

[ScharfeMietze]

Zitat von Uwe Raabe:

Ja, das ist in der Tat so. Durch die Zuweisung wird die Variable neu gesetzt und die ursprüngliche Instanz wird zu einer Speicherleiche.

Alternativ zum Weglassen des FAnsagenListe:= TObjectList<TAnsagen>.Create; kannst du auch vor der Zuweisung ein Free aufrufen:

Delphi-Quellcode:

FAnsagenListe.Free;
FAnsagenListe := TJson.JsonToObject<TObjectList<TAnsagen>>(LsList.Text);

Ja, behelfe mir so beim Laden, da die Liste ggf neu geladen werden muss falls die gespeicherte Datei (inzwischen der Eingabe) von einem anderen Ort geändert wurde.
if Assigned(FAnsagenListe) then FAnsagenListe.Free; Das Arbeiten mit Json und dem einfachen "draufklatschen" auf ein Objekt ist eine herrliche Sache. Ich liebe es!
Gruß und Dank
Eure
ScharfeMieze

[Uwe Raabe]

Zitat von ScharfeMietze:

if Assigned(FAnsagenListe) then FAnsagenListe.Free;

Die Abfrage auf Assigned ist überflüssig, da das direkt in Free abgefangen wird:

Delphi-Quellcode:

procedure TObject.Free;
begin
// under ARC, this method isn't actually called since the compiler translates
// the call to be a mere nil assignment to the instance variable, which then calls _InstClear
{$IFNDEF AUTOREFCOUNT}
  if Self <> nil then
    Destroy;
{$ENDIF}
end;

[ScharfeMietze]

Oh.. Danke sehr