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

发布时间：2020-12-15 09:21:47 所属栏目：大数据来源：网络整理

导读：上下文在DelphiAST中有一个基类：TmwSimplePasPar,用于解析Delphi代码. 另外还有一个类：TPasSyntaxTreeBuilder,它应该覆盖其基类中的每个方法. 题有没有办法检查后代类是否覆盖了其基类中的每个虚方法？能够放入断言会很高兴. TPasSyntaxTreeBuilder.Cre

上下文

在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：我刚发现的那个例程中有一个小错误,我会尽快解决.

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!