Forum: Programmieren allgemein
by ScharfeMietze,
21. Okt 2020
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
Forum: Programmieren allgemein
by ScharfeMietze,
21. Okt 2020
Ja, die Liste wird beim close freigegeben.
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.
Forum: Programmieren allgemein
by ScharfeMietze,
21. Okt 2020
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