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的默认值。

您发布的代码表明您似乎认为这会减少列表Capacity，但这并非如此。

您应该使用的是TList.TrimExcess。 From the docu：

TrimExcess将容量设置为计数，清除列表中的所有多余容量。

Answer 2

你可以写

MyList.Capacity := MyList.Count;

删除TList后如何正确释放内存＆lt;＆gt;项目？

2 个答案: