代码之家  ›  专栏  ›  技术社区  ›  MB.

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

  •  16
  • MB.  · 技术社区  · 16 年前

    我担心这可能是一个有点虚伪的问题,但它让我很困惑。

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

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

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

    以下 工作,但这是否有助于解释我困惑的地方…?

    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;
    

    (回答完问题后,我将删除上述代码,除非它以某种方式有助于解释。)

    2 回复  |  直到 14 年前
        1
  •  18
  •   Roman Ganz    16 年前

    把指针的东西拿开。Delphi会为您做:

    procedure TCallbackObject.SetupCallback;
    begin
      CallbackTheCallback(CallbackMethodImpl);
    end;
    
        2
  •  2
  •   1234    16 年前

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