Помогите разобраться с CallBack-вызовами

← →
repo (2003-09-19 13:40) [0]

Наверное я просто чего-то не понимаю, вот простой пример:

... public procedure IncLabel(_Value:LongInt); type TMyCallBack = procedure (CurrValue:LongInt); procedure ExecuteInc(CallBackFunc: TMyCallBack); implementation //Процедура, в которой используется CallBack procedure ExecuteInc(CallBackFunc: TMyCallBack); Var i: LongInt; Begin For i:=1 to 1000000 do CallBackFunc(i); End; //Сама CallBack - ф-ия procedure TForm1.IncLabel(Digit:LongInt); Begin Label1.Caption:=IntToStr(Digit); Label1.Repaint; End; //Вызов процедуры procedure TForm1.Button1Click(Sender: TObject); begin ExecuteInc(@TForm1.IncLabel); end;

При вызове это все говорит Access violation... Read of address FFFFFFFF

← →
Sandman25 © (2003-09-19 13:41) [1]

Это должна быть процедура, а не метод.

← →
repo (2003-09-19 14:17) [2]

О, точно. А что, метод точно никак нельзя использовать?

← →
icWasya © (2003-09-19 14:23) [3]

type
TMyCallBack = procedure (CurrValue:LongInt) of object;

← →
repo (2003-09-19 14:29) [4]

>TMyCallBack = procedure (CurrValue:LongInt) of object;

при вызове пишет: несовместимые типы TMyCallBack и Pointer

← →
Unknown (2003-09-19 14:44) [5]

http://mazurkin.virtualave.net/papers/11callback/index.html

А зачем именно метод-то? Если надо добраться до полей.свойств объекта, Вы их все равно из метода.callback"а не увидете, даже если-таки выдерете из связки двух указателей тот, что на код. Метод получает Self как неявный параметр, кто его передаст при вызове callBack"а? Я бы присвоил значение Self глобальной переменной (или ThreadVar"у, хотя этот вариант не проверял), callback сделал бы "автономной" процедурой и из него через эту глобальную переменную до всего нужного добрался.

Помогите разобраться с CallBack-вызовами Найти похожие ветки