Вызывать родительскую виртуальную функцию от дочернего переопределения

Question

У меня есть виртуальная функция Hello(), определенная как в родительском, так и в дочернем классе. Как вызвать родительский Hello() из дочернего Hello()?

TParent = class (TComponent) 
public 
    procedure Hello(); virtual; 
end; 

TChild = class (TParent) 
public 
    procedure Hello(); 
end; 


procedure TChild.Hello; 
begin 
    //call parent Hello(); 
end; 

Answer 1

Необходимо наследовать метод. Вы также забыли добавить переопределения атрибут:

program Project1; 
type 
    TParent = class 
    procedure Hello(); virtual; 
    end; 

    TChild = class (TParent) 
    procedure Hello();override; 
    procedure Olleh; 
    end; 

    procedure TParent.Hello; 
    begin 
    writeln('pt'); 
    end; 

    procedure TChild.Hello; 
    begin 
    inherited; 
    end; 

    procedure TChild.Olleh; 
    begin 
    inherited Hello; 
    end; 

var child: TChild; 
begin 
    child := TChild.Create; 
    child.Olleh; 
    child.Hello; 
    readln; 
end. 

В качестве альтернативы вы можете вызвать родительский метод «Hello», как в Olleh, по явному указанию способа вызова. Обычно в переопределенном методе inherited голый, но иногда вам нужно явно вызвать один метод (например, в случае использования нескольких конструкторов или перегрузок).