了解构造函数的可见性

Question

这是两个简单的类，最初都没有关键字（virtual、overload、override、reintroduce）：

TComputer = class(TObject)
public
   constructor Create(Teapot: Integer);
end;

TCellPhone = class(TComputer)
public
   constructor Create(Teapot: Integer; Handle: string);
end;

我将把上面的定义表示为稍短一些：

TComputer = class(TObject)
   constructor Create(Teapot: Integer);

TCellPhone = class(TComputer)
   constructor Create(Teapot: Integer; Handle: string);

并且在构造 TCellPhone 时，只有一个构造函数（>int, string) - 因为祖先构造函数已被隐藏。我将把 TCellPhone 的可见构造函数指示为：

• Teapot: Integer; Handle: string

---

现在对于问题来说，前 3 种情况有意义，第 4 种则不然：

1. 祖先构造函数被后代隐藏：

TComputer = class(TObject)
   constructor Create(Teapot: Integer);

TCellPhone = class(TComputer)
   constructor Create(Teapot: Integer; Handle: string);

• Teapot: Integer; Handle: string

这是有道理的，祖先构造函数被隐藏，因为我已经声明了一个新的构造函数。

2. 祖先虚构造函数被后代隐藏：

TComputer = class(TObject)
   constructor Create(Teapot: Integer); virtual;

TCellPhone = class(TComputer)
   constructor Create(Teapot: Integer; Handle: string);

• Teapot: Integer; Handle: string

这是有道理的，祖先构造函数被隐藏，因为我已经声明了一个新的构造函数。

注意：因为祖先是虚拟的：Delphi 会警告您 你隐藏了虚拟祖先（在 前面隐藏的示例 静态构造函数：没人关心，所以 没有警告）。警告可以是 压抑（意思是“是啊是啊， 我隐藏了一个虚拟构造函数。我 打算这样做。”）通过添加重新引入：

<前><代码> TComputer = 类(TObject) 构造函数 Create(茶壶: Integer);虚拟的; TCellPhone = 类(TComputer) 构造函数 Create(Teapot: Integer; Handle: string);重新引入；

3.由于重载，祖先构造函数未隐藏在后代中：

TComputer = class(TObject)
   constructor Create(Teapot: Integer);

TCellPhone = class(TComputer)
   constructor Create(Teapot: Integer; Handle: string); overload;

• Teapot：Integer；Handle：string
• Teapot: Integer

这是有道理的，因为后代构造函数是祖先构造函数的重载，因此两者都允许存在

4 。由于重载，虚拟祖先构造函数未隐藏在后代中 - 但仍然收到警告：

这种情况没有意义：

TComputer = class(TObject)
   constructor Create(Teapot: Integer); virtual;

TCellPhone = class(TComputer)
   constructor Create(Teapot: Integer; Handle: string); overload;

• Teapot: Integer: string;

• 茶壶：整数

  方法“Create”隐藏基类型“TComputer”的虚拟方法

这没有什么意义。不仅祖先没有隐藏，后代也超载；它甚至不应该抱怨。

什么给？

Answer 1

德尔福的文档说：

如果重载虚拟方法，请使用
当您重新引入指令时
在后代类中重新声明它。
例如，

<前><代码>类型
T1 = 类（TObject）
程序测试（I：整数）；超载;虚拟的;
结尾;
T2 = 类别(T1)
过程测试（S：字符串）；重新引入；超载;
结尾;

如果没有重新引入指令，它仍然有效，正如您所注意到的，但您会收到警告。

另外，您实际上隐藏了 TObject.Create，但它与警告无关。如果您认为您可能还想访问 TObject.Create，请执行以下操作：

type
  TComputer = class(TObject)
    constructor Create(Teapot: Integer); reintroduce; overload; virtual;
  end;

type
  TCellPhone = class(TComputer)
    constructor Create(Teapot: Integer; Handle: String); reintroduce; overload;
  end;

Answer 2

我同意特立尼达的观点。警告背后的逻辑可能只查看祖先方法是否是虚拟/动态以及后代方法是否被标记为覆盖或重新引入。

这也适用于“正常”方法。

可以通过将 reintroduce 放在 overload 修饰符之前或通过将重写的构造函数添加到仅委托给祖先构造函数的后代类来抑制它。

Answer 3

我已经注意到了这一点。据我所知，该警告是一个错误，因为继承的方法没有隐藏。
如果尚未报告，则应在 qc.embarcadero.com 上报告。