delphi – 如何强制后代类实现抽象函数?

前端之家收集整理的这篇文章主要介绍了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;

有时合同无法在编译时强制执行!

而不是使用类的抽象方法,您可以完全改变方向.不要求实现者派生自基类.当您提出要求时,请他们为您提供界面.这就把责任推到了他们身上.他们必须实现接口(并实例化它).然后他们有义务实现每个功能.当然不是它阻止他们实现错误功能

根据您只知道的因素,这可能不如您当前的设计方便.但只有你可以决定.

原文链接:https://www.f2er.com/delphi/102329.html

猜你在找的Delphi相关文章