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

上下文

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

题

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

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

请注意,我在谈论所有虚拟方法,而不仅仅是抽象方法(不实现抽象方法发出警告).

解决方法

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

在Spring4D中有这个函数(在Spring.VirtualClass.pas中)：

function IsVirtualMethodoverride(baseClass,classtype：TClass; method：Pointer)：Boolean;

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

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