如何让线程自行正常终止？附TWorkerThread线程代码示例

看起来你已经搭好了线程的基础框架，核心是要让Execute方法能及时响应终止信号，配合事件对象唤醒阻塞中的线程。我来帮你补全并梳理正确的实现方式：

完整的线程代码实现 #

TWorkerThread = class(TThread)
private
  FSignal: TEvent;
public
  constructor Create;
  destructor Destroy; override;
  procedure Execute; override;
end;

constructor TWorkerThread.Create;
begin
  // 创建自动重置事件，初始无信号状态
  FSignal := TEvent.Create(nil, False, False, '');
  // 直接启动线程（不挂起）
  inherited Create(False);
end;

destructor TWorkerThread.Destroy;
begin
  // 1. 标记线程进入终止状态
  Terminate;
  // 2. 触发事件，唤醒可能处于等待状态的线程
  FSignal.SetEvent;
  // 3. 等待线程完全执行完毕
  WaitFor;
  // 4. 安全释放事件对象
  FSignal.Free;
  inherited;
end;

procedure TWorkerThread.Execute;
begin
  while not Terminated do
  begin
    // --------------------------
    // 这里编写你的核心工作逻辑
    // 注意：把长任务拆分成小块，避免长时间阻塞线程
    // --------------------------
    // 示例：模拟工作任务
    Writeln('线程正在执行工作...');

    // 关键：用事件等待替代Sleep，让线程能立即响应终止信号
    // 等待1秒（可根据业务调整超时时间），收到信号就退出循环
    case FSignal.WaitFor(1000) of
      wrSignaled: Break; // 收到终止信号，退出循环
      wrTimeout: Continue; // 超时，继续下一轮工作
      wrError: Break; // 等待出错，终止线程
    end;

    // 如果没有阻塞需求，至少加短Sleep避免占用100%CPU
    // Sleep(10);
  end;

  // 线程终止前，清理内部资源（如文件句柄、数据库连接等）
  Writeln('线程已正常终止');
end;

关键细节说明 #

• 终止流程顺序：析构函数里的Terminate() → FSignal.SetEvent() → WaitFor()是正确的执行顺序：先标记线程要终止，再唤醒等待中的线程，最后等待线程彻底结束，确保资源安全释放。
• Execute方法的响应性：线程必须能及时检测Terminated状态。如果工作任务耗时较长，一定要拆分成小步骤，每完成一步就检查终止状态；如果需要等待，必须用FSignal.WaitFor()而非Sleep()，这样终止信号能立即唤醒线程。
• 资源清理：线程终止前，记得清理自身创建的资源（比如打开的文件、数据库连接），避免内存泄漏。
• VCL访问注意：如果线程需要操作VCL控件，必须用Synchronize()或Queue()同步到主线程执行，不能直接在Execute方法里操作。

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