你可以覆盖一个类构造函数并使用inherited吗?

Bas*_*scy 7 delphi delphi-xe2

当您在基类中定义类构造函数(即设置一些静态类变量)时,是否可以在派生类中重写此类构造函数,并从其层次结构父级调用构造函数并继承

例:

TBaseclass = class(TObject)
public
   class constructor ClassCreate; virtual;
end;

TOtherClass = class(TBaseClass)
public
  class constructor ClassCreate; override;
end;

**implementation**

class constructor TBaseClass.ClassCreate;
begin
  //do some baseclass stuff
end;

class constructor TotherClass.ClassCreate;
begin
  inherited;
  //do some other stuff
end;
Run Code Online (Sandbox Code Playgroud)

Rob*_*edy 16

类构造函数没有理由是虚拟的,因为它们不能以多态方式调用.你不能直接打电话给他们; 编译器根据程序中使用的类自动插入对它们的调用.虚方法用于运行时多态,但由于编译器确切地知道它在编译时调用哪些类构造函数,因此不需要对类构造函数或析构函数进行动态调度.

但是,继承不需要虚方法,因此inherited在类构造函数或类析构函数中使用时应该没有问题.正如David的回答指出的那样,编译器会忽略调用,inherited因为多次初始化类通常是不明智的,如果你真的设法调用继承的类构造函数,那就是你要做的事情.如果你需要发生两次事情,你需要找到一种不同的方式来实现它.


Dav*_*nan 9

首先,由于类构造函数不能是虚拟的(它们是虚拟的没有意义),因此需要删除virtualoverride关键字以使代码编译.

类构造函数通常用于初始化类变量.类变量通常需要初始化一次且仅一次.如果你可以inherited按照你在问题中建议的方式打电话,那么TBaseClass.ClassCreate会被多次调用,而实际上它需要被调用一次.

虽然您可以inherited在类构造函数中编写,并且代码将编译,但编译器只是忽略它.

program ClassConstructors;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  Count: Integer;

type
  TBaseclass = class
  public
    class constructor ClassCreate;
  end;

  TOtherClass = class(TBaseClass)
  public
    class constructor ClassCreate;
  end;

class constructor TBaseClass.ClassCreate;
begin
  inc(Count);
end;

class constructor TotherClass.ClassCreate;
begin
  inherited;
end;

begin
  TBaseClass.Create.Free;
  TOtherClass.Create.Free;
  Writeln(Count);//outputs 1
  Readln;
end.
Run Code Online (Sandbox Code Playgroud)

当然,请注意,两个类构造函数都会运行.

  • @DavidHeffernan:如果/当你继承SomeMethodName;`而不仅仅是`inherited;`时,重写的抽象方法会调用inherited并产生EAbstractError. (2认同)