如何在Delphi中将一个对象方法作为参数传递,并调用它?

17
我担心这可能是一个比较基础的问题,但它让我感到十分困惑。
我正在寻找尽可能简单的方法来将对象的方法传递给过程,以便过程可以调用对象的方法(例如在超时后或可能在不同的线程中)。所以基本上我想要:
- 捕获对对象方法的引用。 - 将该引用传递给过程。 - 使用该引用从过程中调用对象的方法。
我认为我可以使用接口实现相同的效果,但我认为还有另一种方法,因为存在“对象过程”类型声明。
以下内容不能正常工作,但可能有助于解释我的困惑……?
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;

(一旦问题得到回答,如果上面的代码有助于解释,我将删除它。)

有时候有些人用更困难的方式做事情,这让人印象深刻。在我工作的地方分析线程调用方法时,如果他们使用这种方法进行调用,那么就会容易得多。谢谢你的问题。 - kabstergo
2个回答

20

只需删除指针部分,Delphi将为您完成:

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

2
你不需要使用指针语法的原因是你已将方法类型声明为对象的过程。编译器会从"of object"语句中确定如何处理回调过程中的方法传递。

网页内容由stack overflow 提供, 点击上面的
可以查看英文原文,
原文链接