Скачать: CL | DM;

Указатель за витруальный метод предка.   Найти похожие ветки 

← →
malkolinge ©   (2004-03-01 13:07) [0]

Как сабж получить ? (естественно без прямого обращения к ВМТ)

надо нечто
func : function:boolean of object.
func:=inherited GetEnbaled;

---

← →
Тимохов ©   (2004-03-01 13:23) [1]

Так легко не знаю. Но можно сделать так

type
cls1 = class
procedure a; virtual;
end;

cls2 = class(cls1)
procedure a; override;
end;

type ta = procedure of object;

procedure cls1.a;
begin
showmessage("hellow");
end;

procedure cls2.a;
var
a1: ta;
begin
tmethod(a1).code := @cls1.a;
tmethod(a1).data := self;
a1; // вызов
end;

procedure TForm1.Button10Click(Sender: TObject);
begin
cls2.create.a;
end;

---

← →
Тимохов ©   (2004-03-01 13:24) [2]

Вообще говоря, имхо, очень странное желание знать указатель на метод предка. Может можно как-то без этого обойтись?

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.016 c