如何在重写的虚函数中调用“继承”祖先方法？

Question

这行得通：

constructor TMyObj.Create;
begin
 inherited;
end;

为什么这也不起作用？

function TMyObjEx.Import(CONST FileName: string; CONST x, y, z: Integer): string;
begin
 result:= inherited; // Import(FileName, x, y, z);  <--- Compiler says: "incompatible types"
 //do other stuff here
end;

TMyObjEx 的声明是这样的：

TYPE

TMyObj = class(TChObj)
      private
      protected
      public
       function Import (CONST FileName: string; CONST x, y, z: Integer): string; virtual;     
     end;

TMyObjEx= class(TMyObj)
          private
          protected
          public
           function Import(CONST FileName: string; CONST x, y, z: Integer): string; override;   
         end;

Answer 1

这是正确答案。

执行此操作的正确方法如上所述：

function TMyObjEx.Import(CONST FileName: string; CONST x, y, z: Integer): string;
begin
 result:= inherited Import(FileName, x, y, z); 
 //do other stuff here
end;

语言不支持您想要的方式。

所以最终回答了你的问题“为什么这也不起作用？”是因为这不是语言的设计方式。

Answer 2

当您需要方法的结果时，自动传递参数不起作用。需要填写方法名和参数，对不起。

Answer 3

至于为什么不支持，Hallvard 几年前在他的博客中写了一个plausible explanation：

关于“继承”的一个警告；语法是函数不支持它。为了 函数必须使用显式语法，包括方法名称和任何参数。 例如：

[一些代码]

这可能看起来像是 Delphi 语言设计中的疏忽，但我认为它是 商榷。其背后的基本原理可能是，如果 TMyClass.MethodC 是抽象的（或 将来抽象），后代类中的结果分配将是 删除，因此 Result 突然具有未定义的值。这肯定会引起微妙的 错误。

Answer 4

起初我以为如果你对函数的结果不感兴趣，你可以使用inherited，但事实并非如此。调用继承的函数方法需要方法名和参数。就是那样子。如果您传递的参数与当前方法接收的参数不同，或者您正在调用完全不同的方法，您还需要提及方法名称。

Answer 5

似乎 Delphi 文档还有另一个黑洞……（哦哦哦，有什么好消息？）

我的测试表明 use inherited 关键字在它仅适用于 构造函数、析构函数和过程 方法之后没有任何内容。在 Function 方法上它不起作用ATALL。

但是，我从来没有检测到它，因为我有完全调用继承方法的习惯，即使我不需要它（动机：能够使用 Ctrl+左键单击 on并且无需调试即可更轻松地遵循代码流程）。