在TIdSync中使用匿名函数

Question

基于此answer我可以将我的函数与主线程同步。并且由于这个answer我也可以传递参数。但问题是我必须为各种过程声明多个类，因为参数是不同的（数量或类型）。

问：我可以在TIdSync（或任何其他解决方案）中使用匿名函数，因此不需要为各种过程定义多个类？

Answer 1

TIdSync和TIdNotify不支持匿名过程/函数，因为这将是多余的，因为TThread.Synchronize()和TThread.Queue()自己支持匿名程序（和他们不需要一个TThread对象，当你与非RTL工作静态重载线程）。例如：

procedure TMyThread.Execute; 
begin 
    ... 
    Synchronize(
    procedure 
    begin 
     SomeFunction(Param1, Param2, Param2); 
    end 
    ... 
    Queue(
    procedure 
    begin 
     SomeFunction(Param1, Param2, Param2); 
    end 
); 
    ... 
end; 

// CreateThread() procedure 
function MyThreadProc(pv: Pointer): DWORD; stdcall; 
begin 
    ... 
    TThread.Synchronize(nil, 
    procedure 
    begin 
     SomeFunction(Param1, Param2, Param2); 
    end 
); 
    ... 
    TThread.Queue(nil, 
    procedure 
    begin 
     SomeFunction(Param1, Param2, Param2); 
    end 
); 
    ... 
    Result := 0; 
end; 

TIdSync仅仅是TThread.Synchronize()和TIdNotify的包装仅仅是TThread.Queue()的包装。当所有的TThread可用时都是非静态的非匿名方法Synchronize()。通过将静态方法和匿名程序引入到TThread中，它现在几乎涵盖了TIdSync和TIdNotify设计要做的所有事情，使它们不太相关（但它们当然仍然有效）。