我担心这可能是一个有点愚蠢的问题,但这让我很难过。
我正在寻找将对象的方法传递到过程中的最简单的方法,以便过程可以调用对象的方法(例如,超时后,或者可能在不同的线程中)。所以基本上我想:
- 捕获对对象方法的引用。
- 将该引用传递给过程。
- 使用该引用,从过程中调用对象的方法。
我认为使用接口可以达到相同的效果,但我认为还有另一种方法,因为存在这种“对象过程”类型声明。
下列doesn't工作,但它可以帮助解释我困惑的地方......?
interface
TCallbackMethod = procedure of object;
TCallbackObject = class
procedure CallbackMethodImpl;
procedure SetupCallback;
end;
implementation
procedure CallbackTheCallback(const callbackMethod: TCallbackMethod);
begin
callbackMethod();
end;
procedure TCallbackObject.CallbackMethodImpl;
begin
// Do whatever.
end;
procedure TCallbackObject.SetupCallback;
begin
// following line doesn't compile - it fails with "E2036 Variable required"
CallbackTheCallback(@self.CallbackMethodImpl);
end;
(一旦问题得到解答,我将删除上面的代码,除非它以某种方式帮助解释。)
只需删除指针的东西即可。 Delphi 将为您做到:
procedure TCallbackObject.SetupCallback;
begin
CallbackTheCallback(CallbackMethodImpl);
end;
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)