Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.02.27;
Скачать: CL | DM;

Вниз

RTTI   Найти похожие ветки 

 
stikriz   (2003-02-16 00:28) [0]

Мастера, кто-нибудь вызывал метод класса, если я знаю какой он, и что он точно есть, но не знаю его уазатель? Понятно, что он где-то в виртуальной таблице, но как узнать его номер? Может, как-то по другому?

Николай.


 
Юрий Зотов ©   (2003-02-16 09:50) [1]

Если он published - то действительно RTTI.

procedure CallNotifyEventHandler(Obj, Sender: TObject; Method: string);
var
M: TMethod;
begin
M.Code := Obj.MethodAddress(Method);
if M.Code <> nil then
begin
M.Data := Obj;
TNotifyEvent(M)(Sender)
end
else raise Exception.CreateFmt("Method %s not found", [Method])
end;

Для других типов методов - то же самое, только M надо приводить к соответствующему типу (если он нестандартный, то его надо объявить) и соответственно изменить список параметров.


 
stikriz   (2003-02-16 21:59) [2]


Спасибо, Юрий Зотов !
Николай.

p.s.




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

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

Наверх




Память: 0.47 MB
Время: 0.035 c
3-87285
Seacat
2003-02-07 14:39
2003.02.27
обработка курсора oracle в delphi


3-87308
Serg123
2003-02-10 13:10
2003.02.27
Rave 5


1-87479
AGAMEMNUM
2003-02-18 08:14
2003.02.27
Помогите разобраться (OLE и COM)


14-87711
michael_b
2003-02-09 21:58
2003.02.27
Про дополнительные компоненты


1-87399
BurAn
2003-02-18 05:03
2003.02.27
FillRgn (SetWndRgn )