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;

（一旦问题得到回答，我将删除上面的代码，除非它以某种方式有助于解释。）

4

2 回答 2

19

只需删除指针的东西。德尔福会为你做：

procedure TCallbackObject.SetupCallback;
begin
  CallbackTheCallback(CallbackMethodImpl);
end;
于 2008-10-07T12:15:50.807 回答
2

您不需要指针语法的原因是您已将方法类型声明为对象过程。编译器将从“对象”语句中找出如何处理从回调过程中传递方法。

于 2008-10-07T18:22:49.020 回答