如何在 Delphi 中编写 Debounce() 过程？

Question

我想编写一个类似于通常在 Javascript 中实现的 Debounce 程序。例如debounce function in Underscore.js。

我认为它可能看起来像这样：

procedure Debounce(const TimeMS : integer; MyAnonymousProcedure : TProc);

并且可以像这样使用：

begin
  Debounce(200, procedure
  begin
    //Do something here...
  end);
end;

可能的实施 #1

Debounce() 过程将检查自调用目标方法以来的时间。如果目标方法调用在 X 时间内被调用，则会延迟。

伪代码版本：

procedure Debounce(const TimeMS : integer; MyAnonymousProcedure : TProc);
var
  TimeSinceCalled : integer;
begin
  TimeSinceCalled := FindTimeSinceProcedureLastCalled(MyAnonymousProcedure);
  if TimeMS < TimeSinceCalled then
  begin
    // The procedure hasn't been called recently,
    SaveTimeOfProcedureCall(MyAnonymousProcedure); // so save the current time...
    MyAnonymousProcedure;                          //  ...and call the procedure.
  end else
  begin
    // The procedure has been called recently so we use a timer
    // to call the procedure in X milliseconds.
    // The timer is reset each time Debounce() is called
    // so procedures will only be called when the Debounce time-out has
    // be passed.
    GlobalTimer.Reset;
    GlobalTimer.CallProcedureIn(MyAnonymousProcedure, TimeMS);
  end;
end;

我面临的问题是我需要一些方法来识别目标过程。我的第一个想法是使用目标过程的方法地址作为ID。例如：
ID := Address(Foo); ID := Addr(Foo);
但这不适用于匿名方法，因为它们在我的测试中使用相同的地址。理想情况下，ID 应该是自动生成的。有任何想法吗？

Answer 1

你说你所有的匿名程序的地址都是一样的，但那是不可能的。相反，我怀疑你正在尝试错误的值。你说你打电话给Address，但是没有这个功能。您可能指的是Addr，它与@ 运算符相同。但是，这会为您提供 MyAnonymousProcedure 形式参数的地址，而不是存储在其中的地址。很有可能每次调用函数时参数的地址都相同。

您正在寻找一种方法来识别不同的过程引用。引用本身就足够了。您可以使用TDictionary<TProc, TDateTime> 将程序映射到它们的最后调用时间。

危险在于每次运行时使用过程字面量调用 Debounce 函数，最终可能会构造该过程对象的全新实例，因此它的地址将不同于任何先前构造的过程，甚至如果它使用相同的代码和相同的捕获变量值。

JavaScript 版本容易出现同样的问题，这就是它根本不尝试识别函数的原因。相反，它返回一个 新函数 来包装传入的函数。新函数添加了延迟行为。在 Delphi 中，它可以像这样工作：

function Debounce(Delay: TDateTime; Proc: TProc): TProc;
var
  LastCall: TDateTime;
begin
  LastCall := 0;
  Result := procedure
  begin
    if LastCall + Delay <= Now then
      Proc;
    LastCall := Now;
  end;
end;

此版本的工作方式与下划线版本中的immediate 参数为真一样。这是一个简单的案例，因为它不需要任何延迟执行的机制。但是，它表明您实际上并不需要一种区分不同过程引用的方法，而这正是您之前所坚持的。