使用TThread与TEvent.SetEvent时多线程异常触发问题排查

问题根源 #

你创建TEvent时使用了相同的名称字符串'ThreadStartEvent'：

FThreadStartEvent:= TEvent.Create(nil, true, false, 'ThreadStartEvent');

Windows系统中，命名内核对象（如事件）是全局可见的。当用同一个名称创建多个TEvent实例时，后续实例不会新建事件对象，而是直接引用已存在的同名内核对象。这就导致三个线程的FThreadStartEvent实际指向同一个系统事件，调用任意一个的SetEvent都会触发所有等待该事件的线程。

解决方法 #

方案1：使用匿名事件（推荐） #

去掉事件名称参数，让系统创建匿名内核对象，每个线程拥有独立的事件：

FThreadStartEvent:= TEvent.Create(nil, true, false, ''); // 传入空字符串作为名称

或直接省略最后一个参数（默认值为空字符串）：

FThreadStartEvent:= TEvent.Create(nil, true, false);

方案2：使用唯一名称 #

若必须使用命名事件，给每个线程的事件生成唯一名称，比如结合线程ID或自定义ID：

FThreadStartEvent:= TEvent.Create(nil, true, false, 'ThreadStartEvent_' + Self.FId);

额外优化建议 #

线程销毁时，先标记终止状态再唤醒线程，避免线程卡在WaitFor中无法退出：

destructor TSampleThread.Destroy;
begin
  Terminated := True;
  FThreadStartEvent.SetEvent; // 唤醒线程，使其检测到Terminated后退出循环
  WaitFor; // 等待线程执行完毕再销毁资源
  FThreadStartEvent.Free;
  inherited;
end;

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