Delphi线程循环变量值异常及代码类型不兼容错误排查

首先咱们拆解下你遇到的两个核心问题：

一、原代码输出混乱的根源 #

你最初的循环创建匿名线程时，匿名方法捕获的是循环变量I的引用，而不是它的当前值。因为I是Button1Click栈帧里的单个变量，所有线程共享这个引用。当线程真正开始执行时，循环可能已经跑了好几轮，甚至已经结束（此时I的值是11），所以各个线程拿到的都是I的实时值，自然输出混乱。

加Sleep(1)能临时解决，是因为强制主线程暂停，给每个线程留了执行时间去捕获当时的I，但这会阻塞UI，显然不是正经解决方案。

二、修改后编译错误的原因 #

你写的CaptureValue函数返回的是TMyProc类型的无参过程，但printValue需要的是Integer类型参数，你调用printValue(Proc1)时直接把过程类型传给了整数参数，这就触发了E2010类型不匹配错误。而且你的CaptureValue设计逻辑也走偏了——它返回的是一个输出值的过程，而不是你需要的、捕获到的整数值。

正确的解决方式 #

方式1：循环内用局部变量捕获当前值（最简单直接） #

在每次循环迭代里创建一个局部变量，保存当前I的值，让匿名方法捕获这个局部变量（每个迭代的局部变量都是独立的实例）：

procedure printValue(Value: Integer);
begin
  TThread.Synchronize(TThread.Current, procedure
  begin
    form1.memo1.lines.Add(Value.ToString);
  end);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  I: Integer;
  myThread: TThread;
begin
  for I := 0 to 10 do
  begin
    // 每次循环创建独立的局部变量，保存当前I的值
    var CurrentI := I;
    myThread := TThread.CreateAnonymousThread(
      procedure
      begin
        printValue(CurrentI);
      end);
    myThread.Start;
  end;
end;

方式2：修正CaptureValue的设计逻辑 #

让CaptureValue返回一个已经捕获了目标值的匿名过程，直接传给线程创建函数：

// 先定义合适的过程类型（如果需要的话）
type
  TProc = reference to procedure;

procedure printValue(Value: Integer);
begin
  TThread.Synchronize(TThread.Current, procedure
  begin
    form1.memo1.lines.Add(Value.ToString);
  end);
end;

function CaptureValue(Value: Integer): TProc;
begin
  // 这里的匿名过程会捕获传入的Value值
  Result := procedure
  begin
    printValue(Value);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  I: Integer;
  myThread: TThread;
begin
  for I := 0 to 10 do
  begin
    // 直接把捕获了当前I值的过程传给线程
    myThread := TThread.CreateAnonymousThread(CaptureValue(I));
    myThread.Start;
  end;
end;

这两种方式都能让每个线程拿到创建时对应的I值，不会再出现输出混乱的问题，也不会阻塞UI线程。

内容的提问来源于stack exchange，提问作者peiman F.