在删除TList <>项目后如何正确释放内存？

Question

使用TList作为记录容器。申请时，TList增加和删除大量的记录。但在delete之后，属性capacity决不会减少，并且内存不会释放。如何解决这个问题？ 简单化的代码示例：

type 
    TMyRecord = record 
    Num : integer; 
    Str : String 
    end; 

var 
    MyRecord : TMyRecord; 
    MyList :TList<TMyRecord>; 



    MyList := TList<TMyRecord>.Create; 

    MyRecord.Num := 1; 
    MyRecord.Str := 'abc'; 

    for i := 0 to 63 do 
    begin 
     MyList.Add(MyRecord); 
    end; 

    Memo1.Lines.Add('Before deleting'); 
    Memo1.Lines.Add('Count='+IntToStr(MyList.Count)); 
    Memo1.Lines.Add('Capacity='+IntToStr(MyList.Capacity)); 

    for i := 0 to 59 do 
    begin 
     MyList.Delete(0); 
    end; 

    MyList.Pack; // Here need to somehow free the memory. 

    Memo1.Lines.Add('After deleting'); 
    Memo1.Lines.Add('Count='+IntToStr(MyList.Count)); 
    Memo1.Lines.Add('Capacity='+IntToStr(MyList.Capacity)); 

Answer 1

从documentation on TList.Pack：

此过程从列表中删除T类的任何物品与为默认值T的值。

The co你发布表明你似乎认为这会减少名单Capacity，但这不是这个。你应该使用的是TList.TrimExcess。 From the docu：

TrimExcess设置计数容量，摆脱列表中的所有多余容量。

Answer 2

你可以写

MyList.Capacity := MyList.Count;