如何检查后代类是否覆盖了所有虚拟方法？答案

【问题标题】：How do I check that a descendent class overrides all virtual methods?如何检查后代类是否覆盖了所有虚拟方法？
【发布时间】：2018-03-06 09:08:52
【问题描述】：

在 DelphiAST 中有一个基类：TmwSimplePasPar，用于解析 Delphi 代码。
此外还有一个类：TPasSyntaxTreeBuilder，它应该覆盖其基类中的每个方法。

有没有办法检查子类是否覆盖了其基类中的每个虚拟方法？
能加入断言就好了。

TPasSyntaxTreeBuilder.Create;
begin
  Assert(Self.OverridenMethods.Count = (BaseClass.VirtualMethodCount - TObject.VirtualMethodCount)); 
  ....

请注意，我说的是所有虚拟方法，而不仅仅是抽象方法（不实现抽象方法会发出警告）。

【问题讨论】：

【解决方案1】：

查看类的 VMT 槽，并再次将它们与基类的 VMT 槽进行比较。

在Spring4D中有这个函数（在Spring.VirtualClass.pas）：

function IsVirtualMethodOverride(baseClass, classType: TClass; method: Pointer): Boolean;

我不会在此处发布整个代码，因为它适用于某些内部 VMT 结构记录 - 请自行查看代码。

FWIW：我刚刚发现该例程中有一个小错误，我会尽快修复。

【讨论】：

我自己没试过，但迭代 TRttiType.GetDeclaredMethods 并比较 Name 和 VirtualIndex 是一种有效的方法吗？
@UweRaabe 不，因为默认情况下您只能获得 public 及更高版本，并且通常虚拟方法受到保护
Stefan Glienke：虽然您认为所有虚拟方法都可能没有 RTTI 并没有错，但我认为这只是@UweRaabe 提出的问题的一部分答案。如果我没记错的话，仅比较 Name 和 VirtualIndex 是不够的。即使后代类覆盖了一个方法，这也是一样的，但是每个类的该 VirtualIndex 的 VMT 条目将指向不同的地址。在那里找到差异 - 就像在你的答案中一样 - 是关键。
如果您查看TStream 的源代码，它会进行一些运行时检查以查看其虚拟方法是否已被覆盖。您可以应用类似的技术。