Delphi从不同的类级别调用函数

Question

这个问题已经有答案了:

How to access base (super) class in Delphi? (3 个回答)

已关闭 6 年前。

如何从各个父类调用函数，函数的名称应与父类中的名称相同。

在Java中有super关键字，在C#中有base 。 Delphi 中的等效项是什么？

type 
  MyParentClass = class
    function Dosomething: Integer;
  end;

  MyChildClass = class(MyParentClass)
    function DoSomething: Integer;
  end;

  MyGrandChildClass = class(MyChildClass)
    function DoSomething: Integer;
  end;


function MyParentClass.Dosomething : Integer;
begin
      result := 5; 
end;


function MyChildClass.Dosomething : Integer;
begin
      result := Dosomething + 15 ;  // result should be 20 !  
end;


function MyGrandChildClass.Dosomething : Integer;
begin
      result := Dosomething + 40 ;  // result should be 60  .....   
end;

Answer 1

使用inherited关键字:

function MyChildClass.DoSomething : Integer;
begin
  result := inherited DoSomething + 15 ;
end;

请访问 documentation 了解此关键字.

如果您希望在继承链上进一步挑选一个类，那么您必须明确命名它。例如:

function MyGrandChildClass.DoSomething : Integer;
begin
  result := MyParentClass(Self).DoSomething + 15 ;
end;

但请注意，所有这些都是非常强烈的代码味道。在每个派生类中，您都隐藏了同名的方法。通常这应该使用虚拟方法来完成。