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

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;