我恐怕这可能是一个虚拟的问题,但它让我很沮丧。
我正在寻找将对象的方法传递到过程中的最简单的方法,以便该过程可以调用对象的方法(例如,在超时之后,或者可能在不同的线程中)。所以基本上我想:
>捕获对象方法的引用。
>通过对程序的引用。
>使用该引用,从过程中调用对象的方法。
我想我可以使用接口实现相同的效果,但我认为有另一种方法,因为这个“对象的过程”类型声明存在。
以下不行,但可能有助于解释我在哪里困惑吗?
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;
解决方法
只需删除指针的东西。德尔福会为你做的:
procedure TCallbackObject.SetupCallback; begin CallbackTheCallback(CallbackMethodImpl); end;