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

我使用TObjectList(Delphi 2007)来存储大量数据 – 我希望有大约30万个元素甚至更多.但是,当创建一个列表时,它的默认大小设置为仅存储四个元素,如果一个尝试添加第五个元素则为8,如果一个尝试添加第九个元素则为16,依此类推.数字可能已关闭,但我认为工作正确.这样做的问题是必须将所有元素从内存的释放部分复制到新扩展列表迁移的新内存块.我想设置一个特定的初始大小并释放(或撤消内存的保留,因为保留和分配不是相同的事情)列表已分配/保留的任何未使用的空间.
这可能不是很多代码,但我认为应该以问答形式对这个问题进行永久,可靠的引用.

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;