Вызов метода родителя родителя класса

← →
dima74 (2003-08-06 20:13) [0]

Пусть есть некий класс Class1 с методом Metod1. От него порождён Class2 с кучей полезных мне методов и свойств. Там есть и переопределённый Metod1:
Procedure Class2.Metod1;
Begin
Inherited;
…
Здесь то, что мне абсолютно не нужно
…
end
Я создаю свой класс Class3 порождённый от Class2 с парой дополнительных методов. А вот результат работы Metod1 мне нужно такой, какой он был в Class1. Как мне этого добиться?

← →
HolACost? (2003-08-06 20:22) [1]

Можно впринципи приведя к типу ээтого класса self, но есть ограничения!

← →
Романов Р.В. © (2003-08-06 21:10) [2]

Dimka Maslov © (03.12.02 16:36)
type
TFunc = function (Self: TObject): Boolean;

function TSomeClass.Func: Boolean;
var
Func: TFunc;
begin
Func := @TGrandfatherClass.Func;
Result := Func(Self);
end;

← →
Alex Konshin © (2003-08-07 05:53) [3]

Более корректно будет так:
THackMethod = function ( <arguments> ): <result_type> of object; var rMethod : THackMethod; ... with TMethod(rMethod) do begin Data = Self; ( <arguments>) Более корректно будет так: THackMethod = function ( <arguments> ): <result_type> of object; var rMethod : THackMethod; ... with TMethod(rMethod) do begin Data = Self; Code = @<grandfather_class>.<method_name>; end; rMethod(<arguments>); Реально этот прием позволяет вызвать любой метод любого класса, нужно лишь суметь достать адрес метода.

← →
minva (2003-08-07 08:46) [4]

А если <method_name> в привате описан?

http://delphi5.times.lv/source/api20.htm

на какой черт тебе переопределять то что переопределять не надо?

Вызов метода родителя родителя класса Найти похожие ветки