Вызов метода минуя непосредственного предка?

← →
CrowD (2005-08-30 18:05) [0]

Привет, All!

можно ли в Delphi имея иерархию из 3 классов в первом из которых опрделем метод, а в 2 последних он переопределен, из последнего 3 класса вызвать метод 1 минуя промежуточный 2, если да то как?

Спасибо.

← →
begin...end © (2005-08-30 18:07) [1]

Имеется в виду виртуальный метод?

← →
CrowD (2005-08-30 18:11) [2]

да

← →
Юрий Зотов © (2005-08-30 18:12) [3]

Уточните - методы статические, динамические или виртуальные. Это важно.

← →
CrowD (2005-08-30 18:16) [4]

Class1
function myFunc: integer; virtual;

Class2
function myFunc: integer; override;

Class3
function myFunc: integer; override;

← →
begin...end © (2005-08-30 18:19) [5]

> CrowD (30.08.05 18:11) [2]

type TFirst = class procedure Method; virtual; end; TSecond = class(TFirst) procedure Method; override; end; TThird = class(TSecond) procedure Method; override; end; var Third: TThird; ThirdClass: TClass; begin Third := TThird.Create; try // ... ThirdClass := Third.ClassType; try PPointer(Third)^ := Third.ClassParent.ClassParent; Third.Method finally PPointer(Third)^ := ThirdClass end; // ... finally Third.Free end end.

← →
CrowD (2005-08-30 18:27) [6]

а чтонибудь попроще, по примеру inherited ?

← →
Турист (2005-08-30 21:42) [7]

>CrowD (30.08.05 18:05)
type TMyMethod = procedure (aSelf: Pointer); procedure TThird.Method; begin ShowMessage("3"); TMyMethod(@TFirst.Method)(Self) end;

← →
TUser © (2005-08-30 21:50) [8]

Конопка даже объясняет, почему нельзя, только я точно не воспроизведу.

Вообще согласно теории RTTI ты можешь вызвать метод родителя из любого потомка, так что попробуй.

> можно ли в Delphi имея иерархию из 3 классов в первом из
> которых опрделем метод, а в 2 последних он переопределен,
> из последнего 3 класса вызвать метод 1 минуя промежуточный
> 2, если да то как?

Изменить иерархию классов и перестать желать странного.

Ну, если нужно обойтись без трюков вроде лазания по VMT, почему бы не вот так:

type
t1 = class
function VeryImportant: integer; virtual;
end;

t2 = class(t1)
function VeryImportant: integer; override;
function OldMethod: integer;
end;

t3 = class(t2)
function VeryImportant: integer; override;
end;

function t1.VeryImportant: integer;
begin
Result := 1;
end;

function t2.VeryImportant: integer;
begin
Result := 2;
end;

function t3.VeryImportant: integer;
begin
Result := 3;
end;

function t2.OldMethod: integer;
begin
Result := inherited VeryImportant;
end;

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