delphi - 当长度减少时，动态数组是否会自动释放？

Question

我已经知道，动态数组会自动释放/释放 after use 。这同样适用于调整大小，尤其是减小大小吗？手册和大多数帮助站点仅涉及增加数组大小。

test: array of TLabel;
SetLength(test, 10);
// fill array here
SetLength(test, 2);     // <=== are entries 3-10 are automatically destroyed?

Answer 1

are entries 3-10 are automatically destroyed?

不，它们不会自动销毁，因为这些条目是动态分配的(并且不是托管类型)。仅释放引用这些项目的指针。如有必要，您有责任销毁这些项目，因为编译器无法保证您不会仍然从其他引用中使用它们(或已经销毁它们) .

我还必须指出，从技术上讲，“3-10”项是错误的。动态数组是从零开始的。因此，条目 2 到 9 的引用文献已发布。

I alread know, that a dynamic array is automatically deallocated/freed after use

另外，你的问题说明你没有正确理解这一点。看来您相信当您的数组超出范围时，引用的标签将被自动销毁。 这是错误的!

无论在何处或为何释放部分/所有动态数组条目，Delphi 都不会自动销毁对象类型或任何动态分配的指针内存。 Delphi 仅自动释放基元(Integer、TDateTime、Double 短字符串)、记录和托管类型的内存¹ (接口(interface)、长字符串、其他动态数组)。

¹ 当然这是通过引用计数实现的。 IE。引用减1；当且仅当 refCount 减少到零时，底层对象/字符串/数组才会被释放。

<小时/>

正如 whosrdaddy 指出的那样，如果您希望自动销毁所包含的对象，那么您需要使用实现所有权概念的容器。 TObjectList 就是一个例子。尽管它的工作方式与动态数组不完全相同，但其行为非常相似，因此通常可以非常轻松地用作替代品。