Текущий архив: 2003.08.21;
Скачать: CL | DM;
Вниз
Указатель на функцию Найти похожие ветки
← →
Still Swamp (2003-08-07 18:38) [0]Возможно ли некую MyObject.myFunction(param:integer):integer представить как указатель на эту функцию
pt:pointer;
pt:=@MyFunction
?
← →
Skier © (2003-08-07 18:42) [1]@MyObject.myFunction
← →
Serginio594 (2003-08-07 18:51) [2]Можно только применять надо с TMethod
Type
TMyFunction=Function(param:integer):integer Of Object;
Var V:TMethod;
V.Code:=@MyObject.myFunction
V.Data:=MyObject;
TMyFunction(v)(666);
Так как функции класса нужна ссылка на экземпляр класса (Данные класса)
← →
Still Swamp (2003-08-07 18:53) [3]для Skier....
компилятор ошибку рисует Variable Require... и он прав!
← →
Serginio824 (2003-08-07 18:57) [4]А лучше
Var V:TMyFunction;
V:=MyObject.myFunction;
v(666);
← →
Толик © (2003-08-07 19:35) [5]to Still Swamp (07.08.03 18:53)
да нет, всё правильно:
var
p: pointer;
begin
p := @TMyClass.MyFunction;
end;
Страницы: 1 вся ветка
Текущий архив: 2003.08.21;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.012 c