如何将对象方法作为参数传递给Delphi,然后调用?

前端之家收集整理的这篇文章主要介绍了如何将对象方法作为参数传递给Delphi,然后调用?前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。
我恐怕这可能是一个虚拟的问题,但它让我很沮丧。

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

>捕获对象方法的引用。
>通过对程序的引用。
>使用该引用,从过程中调用对象的方法

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

以下不行,但可能有助于解释我在哪里困惑吗?

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;
原文链接:/delphi/103296.html

猜你在找的Delphi相关文章