“方法‘%s’”隐藏基类型“%s”的虚拟方法。到底隐藏了什么？

Question

阅读 Ian Boyd 的构造函数系列问题后 (1, 2, < a href="https://stackoverflow.com/questions/3876484/delphi-how-to-add-a- Different-constructor-to-a-descendant">3, 4），我意识到我不太明白隐藏内容的字面意思。

我知道（如果我错了，请纠正我）override 的唯一目的是能够具有多态行为，以便运行时可以根据实例的实际类型解析方法 -与声明的类型相反。考虑以下代码：

type
  TBase = class
    procedure Proc1; virtual;
    procedure Proc2; virtual;
  end;

  TChild = class(TBase)
    procedure Proc1; override;
    procedure Proc2;            // <- [DCC Warning]
  end;

procedure TBase.Proc1;
begin
  Writeln('Base.Proc1');
end;
procedure TBase.Proc2;
begin
  Writeln('Base.Proc2');
end;

procedure TChild.Proc1;
begin
  inherited Proc1;
  Writeln('Child.Proc1');
end;
procedure TChild.Proc2;
begin
  inherited Proc2;
  Writeln('Child.Proc2');
end;

var
  Base: TBase;
begin
  Base := TChild.Create;
  Base.Proc1;
  Writeln;
  Base.Proc2;
  Base.Free;
  Readln;
end.

其输出：

Base.Proc1
Child.Proc1

Base.Proc2

TChild.Proc2 上的警告 声明此方法“将隐藏对同名基础方法的访问”。我看到的是，如果我不重写 Proc2，我就会失去该方法解析其实际类型的能力，而不是其基本类型的能力。如何隐藏对 base 方法的访问？

此外，在关于警告的文档中作为警告的解决方案，指出：

首先，您可以指定覆盖 使派生类的过程也 虚拟的，从而允许继承 要求仍引用原始内容 程序。

现在，如果我从“TChild”（无多态性）创建“TChild”实例，则非重写方法中的继承调用显然引用原始过程。如果我从“TBase”创建“Child”实例，调用甚至不会解析为“TChild”方法，我怎么能调用引用任何内容的“Inherited”呢？

我有什么误解吗？

Answer 1

除此之外，您将无法定义

TGrandChild = class(TChild) 
  procedure Proc2; override;
end; 

，因为 TGrandChild 看到的 Proc2 是来自 TChild 的非虚拟 Proc2。 TChild.Proc2 对后代隐藏 TBase.Proc2。

编辑：

回答 Sertac 的评论：

var 
  Base: TBase; 
  Child : TChild
begin 
  Child := TChild.Create;
  Base := Child;
  Base.Proc2; 
  Child.Proc2;

  Base.Free; 
  Readln; 

这将输出

Base.Proc2
Base.Proc2
Child.Proc2

所以，似乎两次调用同一方法实际上是调用 2 个不同的方法。这使得代码更难理解（这不实用）并产生意想不到的行为。

Answer 2

你想得太复杂了。隐藏并不意味着您完全无法访问原始内容。它只是意味着（您自己已经注意到了这一点）如果您有一个静态类型 TChild 的对象，并且您在其上调用 Proc2，它会调用 TChild 中的对象，而不是 TBase 中的对象。 Ken说的也是事实。

它警告您，因为原始是虚拟的，隐藏很可能不是人们在编写这样的代码时想要的。至少这是糟糕的编码风格。

Answer 3

使用“重新引入”来抑制警告。