delphi - 在哪里可以找到有关 Delphi VMT 结构的信息？

Question

System.pas 文件包含大量有关硬编码 VMT 偏移量的信息，但它似乎并没有真正说明 VMT 本身的结构。我真正想知道的是，有没有办法在运行时找出 VMT 的大小，或者换句话说，给定类存在多少个虚拟方法？

Answer 1

您想了解 VMT 结构吗？您还知道，这是一个内部实现细节，可能会发生变化(并且随着时间的推移而发生变化)。

为了回答您的具体问题，以下是查找给定类的虚拟方法数量的简单方法:

function GetVirtualMethodCount(AClass: TClass): Integer;
begin
  Result := (PInteger(Integer(AClass) + vmtClassName)^ - 
    (Integer(AClass) + vmtParent) - SizeOf(Pointer)) div SizeOf(Pointer);
end;

这是有效的，因为我碰巧知道表示类名的字符串紧跟在 VMT 中的所有虚拟方法向量之后。

我还知道所有 TObject 上有 11 个虚拟方法(对于 D2009，对于 D2007 及更早版本有 9 个)，它们与 VMT 指针本身负偏移。

这就是 vmtParent 引用的原因。

最后，通过使用 TClass 类引用，您可以将任何 TObject 派生类传递到此函数中并获取虚拟方法的数量。