TObjectlist -> OwnsObjects -> FastMM4. Frage zur freigabe

[Jackie1983]

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