delphi 的回调函数怎么使用

在Delphi中，回调函数通常使用匿名方法或接口来实现。下面是使用匿名方法和接口的两种常见方式：

1. 使用匿名方法：
在Delphi中，可以使用匿名方法作为回调函数。匿名方法是一种没有名称的方法，可以直接在需要的地方定义和使用。以下是使用匿名方法实现回调函数的示例代码：

   type
     TCallback = reference to procedure(const AValue: Integer);

   procedure DoSomethingWithCallback(ACallback: TCallback);
   begin
     // 执行某些操作
     // 调用回调函数
     ACallback(42);
   end;

   procedure Main;
   begin
     DoSomethingWithCallback(
       procedure(const AValue: Integer)
       begin
         // 在这里处理回调函数的逻辑
         Writeln('Callback value: ', AValue);
       end
     );
   end;

2. 使用接口：
另一种常见的方式是使用接口来实现回调函数。首先，定义一个包含回调方法的接口，然后实现该接口并将其传递给需要回调的函数。以下是使用接口实现回调函数的示例代码：

   type
     ICallback = interface
       procedure Callback(const AValue: Integer);
     end;

   type
     TCallbackImpl = class(TInterfacedObject, ICallback)
       procedure Callback(const AValue: Integer);
     end;

   procedure DoSomethingWithCallback(ACallback: ICallback);
   begin
     // 执行某些操作
     // 调用回调函数
     ACallback.Callback(42);
   end;

   procedure TCallbackImpl.Callback(const AValue: Integer);
   begin
     // 在这里处理回调函数的逻辑
     Writeln('Callback value: ', AValue);
   end;

   procedure Main;
   var
     CallbackImpl: TCallbackImpl;
   begin
     CallbackImpl := TCallbackImpl.Create;
     try
       DoSomethingWithCallback(CallbackImpl);
     finally
       CallbackImpl.Free;
     end;
   end;