Delphi抽象类避免实现

Question

在this 问题中，您看到可以创建一个添加abstract 关键字的抽象类。我正在用 Delphi 翻译一个项目，但我看到它允许创建一个抽象类。这是代码：

type
 TCableSPF = class abstract
  //code
end;

这当然是一个抽象类，我有很多实现它的子类。顺便说一句，我认为可以创建这样的实例；

a := TCableSPF.Create;

当我尝试调用它的虚拟和抽象方法时，我得到了错误，这没关系，但我可以阻止创建类吗？还是 Delphi 默认允许这样做？感谢您的帮助

Answer 1

class abstract 是 Delphi for .Net 天的延续。
由于未知的原因，此关键字后面没有（当前）实现。

如果你想阻止抽象类的实例化，这个关键字将无济于事。而是执行以下操作：

type
  TCableSPF = class abstract
  //code
strict protected
  //Define all constructors for an abstract class as protected.
  constructor Create; virtual; reintroduce;
end;

通过将所有构造函数定义为受保护，只有后代对象可以访问构造函数，其他代码不能访问构造函数。
因为你重新引入了虚拟构造函数，你也不能使用它来实例化它：

unit A; 

type
  TMyAbstractObject = class abstract(TObjectX)
  strict protected
    constructor Create; virtual; reintroduce;
  end;

...
unit B;

  TMyClass = class of TObjectX;

  AbstractObjectInstance = TMyClass.Create;  //Will not work for TMyAbstractObject 

请注意，您应该不声明构造函数override。而是将其声明为virtual reintroduce（或者如果您不想允许虚拟构造函数，则只声明reintroduce）。