Servus
ich habe zwei klassen.
Delphi-Quellcode:
TTestKlasse1 = class(TObject)
var1 : string;
var2 : integer;
list : TObjectlist;
Constrcutor Create; //<- erstellt list
Destructor Free; //<- freigeben list
end;
TTestklasse2 = class(TObject)
list2 : TObjectlist;
Constrcutor Create; //<- erstellt list2, list2.OwnsObjects := true
Destructor Free; //<- freigeben list2.free
end;
Die klasse TTestklasse2 wird erstellt. In list füge ich ein paar Objekte von TTestKlasse1 hinzu.
Wenn ich jetzt das free von TTestklasse2 aufrufe und dort nur schreibe list2.free sind die listen aus der TTestKlass noch vorhanden laut FastMM4. Habe ich zum Beispiel TTestKlasse1 10 mal hinzugefügt habe ich 10 TObjectlist als speicherfresser.
Muss ich doch die list2 durchgehen und dann für jedes objekt free aufrufen so das die objektlist freigegeben wird?
Mfg