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

Question

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

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

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

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

Answer 1

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

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

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

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

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