delphi - 使用大的 TObjectList 并释放未使用的部分

Question

我正在使用 TObjectList (Delphi 2007) 来存储大量数据 - 我预计有大约 30 万个元素甚至更多。但是，当创建列表时，它的默认大小设置为仅存储四个元素，如果尝试添加第五个元素，则存储八个元素，如果尝试添加第九个元素，则存储十六个元素，依此类推。这些数字可能有误，但我认为运作方式是正确的。这样做的问题是，所有元素都必须从内存的已释放部分复制到新扩展列表迁移的新内存块。我想设置一个特定的初始大小并取消分配(或撤消内存的保留，因为保留和分配不是同一件事)列表已分配/保留的任何未使用的空间。这可能不是很多代码，但我认为应该以问题和答案的形式对这个问题有一个永久、可靠的引用。

Answer 1

将Capacity 设置为您期望的最大元素数，填充列表，然后将Capacity 设置为您实际使用的值(可选)。这避免了所有分配/移动/分配/移动的事情。

MyList.Capacity := 300000;
// Add 280000 items here

// Optionally, reduce the capacity. It's not important to do so unless
//  you end up with a lot of unused items.
MyList.Capacity := MyList.Count;