如何强制后代类实现抽象函数？

Question

我有一个基本抽象类,我在其中定义了一个虚拟抽象函数.

TMyBaseClass = class abstract(TForm)
public
  function MyFunction : string; virtual; abstract;
end;

我注意到编译非抽象后代类时没有显示错误/警告.

TMyDescendantClass = class(TMyBaseClass);

目标是强迫我的同事为每个后代类实现该功能.我发现了一个类似的问题(Delphi 6:在遗漏的抽象类方法上强制编译错误？)但该解决方案不适合我的目标.

UPDATE1:

通过调用"GetClass"函数获得类.

GetClass('TMyDescendantClass').Create

由于这个事实,实例创建不会引起警告.

Answer 1

如果您坚持使用当前的设计,除了在运行时等待错误之外,您无能为力.

如果您静态引用这些类,那么如果您实例化包含抽象方法的类,则会看到警告.但是因为你动态获取类,编译器无法帮助你.

向类添加接口不会有太大用处.假设您更改了类,以便实现接口？您必须在基类中实现它.你会怎么做？通过使用虚拟方法？你只是回到你开始的地方.

假设您可以某种方式强制派生类的实现者实现所有这些抽象方法.什么阻止他们这样做:

type
  TMyDescendantClass = class(TMyBaseClass)
  public
    function MyFunction: string; override;
  end;

function TMyDescendantClass.MyFunction: string;
begin
  // TODO: implement this method
end;

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

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

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