перегрузка виртуальных функций

← →
Vitalik (2003-10-29 13:06) [0]

Здравствуйте!
Вопрос может и тупой, но всё же я не знаю на него ответа...
есть класс
a = class
function get: integer; virtual;
end;

и его наследник
b = class
function Get: integer; override;
end;

function a.get: integer;
begin
***
end;

function b.get: integer;
begin
вот как мне из этой функции вызвать функцию Get предка?
И нужно чтобы эта функция вернула результат работы функции Get предка.
end;

как это сделать?
Спасибо!

← →
MBo © (2003-10-29 13:08) [1]

inherited

← →
Skier © (2003-10-29 13:09) [2]

1) b = class (a)
2)
function b.get: integer;
begin
Result := inherited Get;
end;

← →
Vitalik (2003-10-29 13:21) [3]

Спасибо!
Я как в процедурах-то inherited использовать знал, а вот в функциях не приходилось ;)

А это директива компилятору использовать родителя

> Vitalik

только это не "перегрузка" называется (virtual), а "перекрытие" (или "переопределение" иной раз называют это)

перегрузка (overload) - нечто совсем иное

перегрузка виртуальных функций Найти похожие ветки