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

Question

上下文

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

问题

有没有办法检查后代类是否覆盖了其基类中的每个虚方法？
能够输入断言会很好。

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

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

Answer 1

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

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

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

我不是在这里发布整个代码，因为它适用于某些内部VMT结构记录 - 请自己查看代码。

FWIW：我刚发现的那个例程中有一个小错误，我会尽快解决。