向线程传递字符串变量是否不安全？线程中字符串值异常原因？

这不是字符串特殊性导致的正常现象，而是匿名线程捕获外部变量时的闭包陷阱，属于代码逻辑问题。

问题根源 #

Delphi的匿名方法默认按引用捕获外部变量，而非按值捕获。在你的for循环中，Roomname和Motion是循环体外声明的局部变量，每次迭代都会被覆盖新值。当线程启动并执行匿名方法时，循环可能已经完成多次迭代，此时匿名方法访问的Roomname是该变量的当前引用值（通常是循环最后一次赋值的内容），而非线程创建时的那个迭代值。

解决方案 #

有两种可靠的修复方式：

1. 在线程内部创建局部变量保存当前值

通过在匿名方法内声明局部变量，先把当前迭代的Roomname和Motion值保存下来，再传递给FollowUp，确保线程访问的是当前迭代的副本：

TThread.CreateAnonymousThread(
  procedure
  var
    LocalRoomName: string;
    LocalMotion: Boolean;
  begin
    LocalRoomName := Roomname;
    LocalMotion := Motion;
    FollowUp(LocalRoomName, LocalMotion);
  end).Start;

2. 使用值捕获（Delphi 10.3+支持）

利用Delphi 10.3及以上版本支持的值捕获特性，将变量作为匿名方法的参数传递，强制按值捕获当前迭代的内容：

TThread.CreateAnonymousThread(
  procedure(const CapturedRoomName: string; const CapturedMotion: Boolean)
  begin
    FollowUp(CapturedRoomName, CapturedMotion);
  end, Roomname, Motion).Start;

总结 #

该问题和字符串本身的特性无关，是闭包引用捕获导致的常见陷阱，通过上述两种方式处理变量捕获逻辑，就能让线程获取到正确的迭代值。

内容的提问来源于stack exchange，提问作者Wolfgang Bures