如何在Delphi中将对象方法作为参数传递,然后调用它？

Question

我担心这可能是一个虚拟的问题,但它让我非常难过.

我正在寻找将对象的方法传递给过程的最简单方法,以便过程可以调用对象的方法(例如,在超时之后,或者可能在不同的线程中).基本上我想:

• 捕获对象方法的引用.
• 将该引用传递给过程.
• 使用该引用,从过程中调用对象的方法.

我想我可以使用接口实现相同的效果,但我认为还有另一种方法,因为这个"对象过程"类型声明存在.

以下不起作用,但它可能有助于解释我困惑的地方......？

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;

(一旦问题得到解答,我将删除上述代码,除非它以某种方式帮助解释.)

Answer 1

只需删除Pointer的东西.德尔福会为您做到:

procedure TCallbackObject.SetupCallback;
begin
  CallbackTheCallback(CallbackMethodImpl);
end;