我有一个基本抽象类,我在其中定义了一个虚拟抽象函数.
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('TMyDescendantClass').Create
由于这个事实,实例创建不会引起警告.
解决方法
如果您坚持使用当前的设计,除了在运行时等待错误之外,您无能为力.
如果您静态引用这些类,那么如果您实例化包含抽象方法的类,则会看到警告.但是因为你动态获取类,编译器无法帮助你.
向该类添加接口将没有多大用处.假设您更改了类以便实现接口？您必须在基类中实现它.你会怎么做？通过使用虚拟方法？你只是回到你开始的地方.
假设您可以某种方式强制派生类的实现者实现所有这些抽象方法.什么阻止他们这样做：
type
TMyDescendantClass = class(TMyBaseClass)
public
function MyFunction: string; override;
end;
function TMyDescendantClass.MyFunction: string;
begin
// TODO: implement this method
end;
有时合同无法在编译时强制执行！
而不是使用类的抽象方法,您可以完全改变方向.不要求实现者派生自基类.当您提出要求时,请他们为您提供界面.这就把责任推到了他们身上.他们必须实现接口(并实例化它).然后他们有义务实现每个功能.当然不是它阻止他们实现错误的功能！
根据您只知道的因素,这可能不如您当前的设计方便.但只有你可以决定.