Delphi中如何停止线程？线程无法终止问题排查

核心原因 #

• 未持有线程实例引用：在Button1Click中创建MyThread1实例后，没有将其保存到窗体的成员变量中，导致Button2Click找不到需要停止的线程对象，无法触发线程终止逻辑。
• 自定义终止变量未生效：你在MyThread1中定义了stopThread布尔变量，但线程的Execute方法完全没有检查该变量，这个变量无法起到终止线程的作用。

修复步骤 #

1. 给窗体添加线程引用成员 #

在TForm1的private段添加线程变量，用于保存创建的线程实例：

private
  FWorkerThread: MyThread1;

2. 修改Button1Click逻辑保存线程引用 #

procedure TForm1.Button1Click(Sender: TObject);
begin
  // 避免重复创建线程
  if Assigned(FWorkerThread) then Exit;
  FWorkerThread := MyThread1.Create;
end;

3. 实现Button2Click的线程终止逻辑 #

procedure TForm1.Button2Click(Sender: TObject);
begin
  if Assigned(FWorkerThread) then
  begin
    FWorkerThread.Terminate; // 标记线程为终止状态，触发Execute中的Terminated检查
    FWorkerThread := nil; // 清空引用（线程已设置FreeOnTerminate=True，会自动释放）
  end;
end;

4. 清理无用代码 #

删除MyThread1中未使用的stopThread:boolean;定义，避免代码冗余。

额外优化建议 #

• 在线程执行完毕后，同步清空窗体的线程引用，避免重复点击Button1无响应：
  在MyThread1.UpdateUI的结束判断中添加：

  if (count = 1000) then
  begin
    ShowMessage('Thread 1 Finished!');
    Form1.FWorkerThread := nil;
  end;
  

• 频繁调用Synchronize会阻塞线程等待UI更新，若仅更新文本，可改用Queue替代，减少线程等待时间。

内容的提问来源于stack exchange，提问作者Aaron Catolico