Question

我创建了一个组件，它的self不应该被实例化，而是必须继承它。与TThread类似的概念。我可以对这个组件做些什么来确保它永远不会被自己实例化而不被继承？例如，当实例化对象时，引发一个异常，即需要继承该类，或者如果可能的话，甚至不要让任何项目在尝试此组件库的实例的地方进行编译。

Answer 1

在XE2中，您可以将类声明为abstract：

type TMyclass = class abstract (TAncestor)

Upd：似乎Delphi仍然允许创建抽象类（尽管某些版本的文档说它没有）。编译器应该发出警告。

可能你的类有一些必须被覆盖的虚方法（这就是它必须从中继承的原因）。如果是这样，只需创建方法abstract，当在基类中调用它时，您将获得异常。

Answer 2

这在TLama的评论中提到过，但从未得到答案，所以我会回答这个问题。

type
  TEvilClass = class
  public
    constructor Create;
  end;

  TGoodClass = class(TEvilClass)

  end;

{ TEvilClass }

constructor TEvilClass.Create;
begin
  if ClassType = TEvilClass then
    raise Exception.Create('I''m the evil class which cannot be instantiated!');
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  EvilClass: TEvilClass;
begin
  EvilClass := TEvilClass.Create;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  GoodClass: TGoodClass;
begin
  GoodClass := TGoodClass.Create;
end;

此场景也是创建自己的异常类型的一种方法..

type
  EvilClassException = Exception;

  TEvilClass = class(TComponent)
  public
    constructor Create(AOwner: TComponent); override;
  end;

  ...

constructor TEvilClass.Create(AOwner: TComponent);
begin
  inherited;
  if ClassType = TEvilClass then
    raise EvilClassException.Create('I''m the evil class which cannot be instantiated!');
end;

如何定义必须继承的基类？

2 个答案: