Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.03.14;
Скачать: 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 вся ветка

Текущий архив: 2004.03.14;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.021 c
14-43820
Alex Konshin
2004-02-21 23:10
2004.03.14
Средний класс в Америке


3-43361
Sirus
2004-02-14 06:48
2004.03.14
DISTINCT по нескольким полям???


14-43795
NewD
2004-02-23 13:09
2004.03.14
Посоветуйте - носители инф-ции бльшого объема ?


14-43858
race1
2004-01-23 13:32
2004.03.14
winamp multiuser


1-43550
Batoon
2004-02-27 17:30
2004.03.14
работа с LISTBOX ом