Dlaczego TObjectList <T>. Czy usunąć wolne obiekty?

Question

Właśnie zauważyłem, że

var 
    ObjList : TObjectList <TMyObject>; 
... 
ObjList := TObjectList <TMyObject>.Create (True); 
ObjList.Add (TMyObject.Create); 
ObjList.Clear; 

nie zwalnia obiekt. Patrząc na kod źródłowy wydaje się, że powiadomienie cnRemoved nie jest wywoływane w Clear (odziedziczone po TList <T>).

Moje pytanie: Czy jest to zamierzone? Czy jest jakiś powód, dla którego nie chcesz otrzymywać tych powiadomień w przypadku Clear? Czy może to być uznane za błąd w klasach kolekcji?

EDIT

Okazuje się, że mogę umieścić linię

inherited Create; 

na szczycie TMyObject destructor, który miał udać się do konstruktora. Dlatego mam zgłoszone wycieki pamięci, które wyglądały tak, jakby TObjectList nie zwalniało elementów. I spojrzenie na źródło przekonało mnie (zostałem uwięziony przez właściwość Count). Mimo wszystko, dziękuję za twoją pomoc!

Answer 1

Lista zwalnia posiadane przedmioty, dzwoniąc pod numer .Clear. Masz błąd testowania. Próbka poniżej kod, napisany w Delphi XE, wyświetla to:

Calling CLEAR 
Object deleted. 
Object deleted. 
After CLEAR. Press ENTER to free L and Exit. 

---

Kod w TList<T>.Clear jest mylące, ponieważ Count jest rzeczywiście własnością. Spójrz na SetCount(), a następnie spójrz na DeleteRange(), a zobaczysz kod dla Notify(oldItems[i], cnRemoved) na końcu procedury DeleteRange.

---

program Project3; 

{$APPTYPE CONSOLE} 

uses SysUtils, Generics.Collections; 

type 
    TDelObject = class 
    public 
    destructor Destroy;override; 
    end; 

{ TDelObject } 

destructor TDelObject.Destroy; 
begin 
    WriteLn('Object deleted.'); 
    inherited; 
end; 

var L:TObjectList<TDelObject>; 

begin 
    L := TObjectList<TDelObject>.Create(True); 
    L.Add(TDelObject.Create); 
    L.Add(TDelObject.Create); 
    WriteLn('Calling CLEAR'); 
    L.Clear; 
    WriteLn('After CLEAR. Press ENTER to free L and Exit.'); 
    Readln; 
    L.Free; 
end. 

Answer 2

TList<T>.Clear rozmowy DeleteRange do pracy. Ostatnia część DeleteRange przebiega wokół wszystkich elementów wywołujących Notify przekazujących cnRemoved.

Twoja analiza kodu jest zatem niepoprawna. Powiadomienie o cnRemoved jest należycie dostarczone, a posiadane obiekty są zwalniane.