Lazarus中匿名线程无法传递参数问题求助

原代码的问题分析 #

第一段代码的问题

• TProcedure(@hi(i)) 写法错误：hi(i)是函数调用，并非方法地址，且TProcedure是无参类型，无法直接绑定带参数的函数。
• 循环变量i被多线程共享：所有线程可能最终捕获到同一个i值（比如循环结束后的4），而非预期的1-4。
• 跨线程直接操作UI：线程中修改Form1.Caption属于不安全操作，会导致程序不稳定。

第二段代码的问题

• 参数类型不匹配：hi函数定义的参数是integer，但调用时传入字符串'hello'，编译会报错。
• 同样存在跨线程操作UI的问题。

正确实现示例 #

示例1：循环传递整数参数并安全更新UI

procedure hi(i: integer);
begin
  // 使用Synchronize同步UI操作，确保在主线程执行
  TThread.Synchronize(nil, procedure
    begin
      Form1.Caption := IntToStr(i);
    end);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
begin
  for i := 1 to 4 do
  begin
    // 复制循环变量到局部变量，避免线程共享同一个i的引用
    var LocalI := i;
    TThread.CreateAnonymousThread(
      procedure
      begin
        hi(LocalI);
      end
    ).Start;
  end;
end;

示例2：传递自定义参数并处理UI同步

如果需要传递字符串或其他类型，先修正参数类型，再同步UI：

// 修改hi函数支持字符串参数
procedure hi(const s: string);
begin
  TThread.Synchronize(nil, procedure
    begin
      Form1.Caption := s;
    end);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  Thread: TThread;
  Value: Integer;
begin
  Value := 42;
  Thread := TThread.CreateAnonymousThread(
    procedure
    begin
      // 传递转换后的参数，确保类型匹配
      hi(IntToStr(Value));
    end
  );
  Thread.Start;
end;

关键注意事项 #

• 变量捕获陷阱：循环中传递变量时，必须复制到局部变量，否则所有线程会共享循环变量的最终值。
• UI操作同步：任何线程中对UI控件的修改，必须通过TThread.Synchronize或TThread.Queue在主线程执行。
• 参数类型匹配：确保传递的参数类型与函数定义一致，避免编译或运行时错误。

内容的提问来源于stack exchange，提问作者عبد الله محمد