delphi – 如何强制后代类实现抽象函数?
我有一个基本抽象类,我在其中定义了一个虚拟抽象函数.
TMyBaseClass = class abstract(TForm) public function MyFunction : string; virtual; abstract; end; 我注意到编译非抽象后代类时没有显示错误/警告. TMyDescendantClass = class(TMyBaseClass); 目标是强迫我的同事为每个后代类实现该功能.我发现了类似的问题(Delphi 6: Force compiler error on missing abstract class methods?),但解决方案不符合我的目标. UPDATE1: 通过调用“GetClass”函数获得类. GetClass('TMyDescendantClass').Create 由于这个事实,实例创建不会引起警告. 解决方法
如果您坚持使用当前的设计,除了在运行时等待错误之外,您无能为力.
如果您静态引用这些类,那么如果您实例化包含抽象方法的类,则会看到警告.但是因为你动态获取类,编译器无法帮助你. 向该类添加接口将没有多大用处.假设您更改了类以便实现接口?您必须在基类中实现它.你会怎么做?通过使用虚拟方法?你只是回到你开始的地方. 假设您可以某种方式强制派生类的实现者实现所有这些抽象方法.什么阻止他们这样做: type TMyDescendantClass = class(TMyBaseClass) public function MyFunction: string; override; end; function TMyDescendantClass.MyFunction: string; begin // TODO: implement this method end; 有时合同无法在编译时强制执行! 而不是使用类的抽象方法,您可以完全改变方向.不要求实现者派生自基类.当您提出要求时,请他们为您提供界面.这就把责任推到了他们身上.他们必须实现接口(并实例化它).然后他们有义务实现每个功能.当然不是它阻止他们实现错误的功能! 根据您只知道的因素,这可能不如您当前的设计方便.但只有你可以决定. (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |