Delphi中的抽象类

Question

我正在使用一个具有许多抽象类的组件套件。现在我想应用多态性，但在创建对象时收到错误抽象类。

即使我不需要，我是否应该重写所有虚拟方法？有什么解决方法或解决方案吗？

Answer 1

为了创建类的实例，您需要重写所有声明为虚拟抽象的方法。即使您不使用它们。

如果您确实想要解决方法，可以使用空方法。但我不会推荐这样做。

并添加有关该主题的更多信息：

如果使用虚拟抽象声明方法，则该方法是抽象的：

procedure MyMethod(const AMyParameter: Integer); virtual; abstract;

琐事：您甚至可以将方法重写为抽象方法：

procedure MyMethod(const AMyParameter: Integer); override; abstract;

您需要重写这些方法才能从该类实例化。

您可以将整个类声明为抽象类：

type
  TMyClass = class abstract (TMyAncestor)
  end;

如果您尝试实例化该类，您会收到警告。

对应的是密封类：

type
  TMyClass = class sealed (TMyAncestor)
  end;

如果您尝试从该类继承，您会收到警告。

您还可以密封方法，但需要关键字final。

procedure MyMethod(const AMyParameter: Integer); override; final;

Answer 2

Delphi 没有抽象类，只有抽象方法。如果调用抽象方法，将会引发抽象方法异常。

简而言之，您不能调用抽象方法。如果编译器检测到您使用抽象方法实例化类，则会发出警告。好的做法是要求编译器将这些警告转化为错误。

Answer 3

那么它仍然是抽象的

1. 如果您的后代类被声明为抽象，或者
2. 它至少有一个声明为抽象的方法，或者
3. 它没有覆盖和实现其祖先的所有抽象方法，

Answer 4

如果您重写抽象构造函数，它将产生错误，因为它会自动将继承放入新构造函数中，如果您使用代码自动完成，新构造函数当然会调用抽象构造函数。

例如

type
  TMyclass = class (TObject)
  public
    constructor Create(AOwner : TComponent); dynamic; abstract;
  end;

  TMyclass2 = class(TMyclass)
  public
    Constructor Create(AOwner : TComponent); override;
  end;

implementation

constructor TMyclass2.Create(AOwner: TComponent);
begin
  inherited;

end;