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

Question

我想知道（用于调试和记录）对象的大小（以字节为单位），但不喜欢

Sizeof (Object)

但就像一个“深尺寸”。例如，如果对象包含哈希映射或列表，则该哈希映射或列表所需的实际大小应添加到结果中。有什么方法可以做到这一点而不必添加一个

property Size : LongWord read GetByteSize;

对每一个小物件？

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

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

Recursive Class Instance Size in Delphi

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

Answer 1

很遗憾，您需要自己编写代码。

不确定这是否有效，但你可能会变得非常肮脏：

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

Answer 2

既然是调试用的，那你看过FastMM4内存分配器了吗？它有一些用于跟踪内存泄漏的好东西。