停止在Delphi中覆盖函数

发布时间：2020-12-15 03:52:04 所属栏目：大数据来源：网络整理

导读：如何在Delphi(2007)的子类中重写超类中的函数/过程？我想标记它以便它不能被改变,我相信有一个最终的关键字,但不能为我的生活找到它的文档,所以我不是100％肯定这是我需要的. 解决方法关键字是最终的,如你所想.请参阅 http://dn.codegear.com/article/3432

如何在Delphi(2007)的子类中重写超类中的函数/过程？

我想标记它以便它不能被改变,我相信有一个最终的关键字,但不能为我的生活找到它的文档,所以我不是100％肯定这是我需要的.

解决方法

关键字是最终的,如你所想.请参阅 http://dn.codegear.com/article/34324和 http://blogs.teamb.com/rudyvelthuis/2005/05/13/4311.此外,您可以将您的课程标记为已密封,以防止任何人继承该课程.您需要高于7的Delphi版本.

type
  TSomeClass = class
  protected
    procedure SomeVirtualMethod; virtual;
  end;

  TOtherClass = class(TSomeClass)
  protected
    procedure SomeVirtualMethod; override; final;
  end;

（编辑：李大同）

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