delphi - 对象的字节大小，包括成员的大小

Question

我想知道(用于调试和记录)对象的大小(以字节为单位)，但不像

Sizeof (Object)

但就像“deep sizeof”。例如，如果对象包含 HashMap 或列表，则应将该 HashMap 或列表所需的实际大小添加到结果中。有什么方法可以做到这一点而无需添加

property Size : LongWord read GetByteSize;

每一个小物体？

可能是一个愚蠢的问题，但我会尝试一下；)

编辑:刚刚发现几乎相同的问题:

Recursive Class Instance Size in Delphi

我想，这个问题可以结束了。抱歉!

Answer 1

不幸的是，您需要自己编写代码。

不确定这是否有效，但你可能会变得很脏:

• 查找对象大小(以字节为单位)。使用TObject.InstanceSize。
• 将每组 4 个字节转换为指针，然后检查它是否是 TObject。你应该能够做到这一点。如果是TObject，则应重复该步骤。