TObjectList <T> Neden serbest nesneleri temizlemiyorsunuz?

Question

Sadece

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

nesne serbest olmadığını fark ettik. Kaynak koduna bakarak, Clear ( TList <T>'dan miras alınan) hiçbir cnRemoved bildiriminin tetiklenmediği anlaşılıyor.

Sorum: Bu kasıtlı mi? Clear durumunda bu bildirimleri almak istemeyen bir neden var mı? Veya bu toplama sınıflarında bir hata olarak kabul edilebilir mi?

DÜZENLEME

bir ben yapıcı gitmek gerekiyordu TMyObject destructor, üstüne bir çizgi

inherited Create; 

koymak çıkıyor. Bu yüzden, TObjectList'un öğeleri serbest bırakmadığını gösteren bellek sızıntıları bildirildi. Ve kaynaklara bir bakış beni ikna etti (Count mülkiyeti tarafından kapana kısılmıştım). Yine de yardımın için teşekkürler! Eğer .Clear çağırdığınızda

Answer 1

liste olunan nesneler serbest bırakır. Bir test hatasının var. Delphi XE yazılı aşağıda kod örneği, bu görüntüler: TList<T>.Clear kodu aldatıcı

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

---

, Count aslında bir özelliktir çünkü. Sonra DeleteRange() bakmak ve DeleteRange prosedürün sonunda Notify(oldItems[i], cnRemoved) için kod göreceksiniz, SetCount() bak.

---

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 aramalar DeleteRange işi yapmak için. DeleteRange'un son kısmı, Notify'u cnRemoved geçerek çağıran öğelerin tümünü çalıştırır. kod

Sizin analiz böylece yanlış. cnRemoved bildirimi usulüne uygun olarak teslim edilir ve sahip olunan nesneler serbest bırakılır.