退出应用时线程运行触发c00000005访问违规，求优雅解决方法

问题根源 #

当应用关闭时，主线程销毁窗体后，仍在运行的线程其堆内存（包括动态数组A的存储空间）可能被系统回收，此时线程继续访问已失效的数组会触发c00000005访问违规。原代码仅调用Terminate但未等待线程结束，加上FreeOnTerminate := True导致线程对象可能被提前释放，加剧了内存冲突。

优雅解决步骤 #

1. 手动管理线程生命周期

去掉FreeOnTerminate := True，改为手动控制线程的创建与释放，避免自动释放带来的内存时序问题：

procedure TForm1.Button4Click(Sender: TObject);
begin
  wtf := Twtf.Create;
  // 注释掉 FreeOnTerminate := True;
end;

2. 修改窗体销毁逻辑，等待线程完全终止

在窗体Destroy方法中，先发送终止信号，再等待线程执行完毕，最后释放线程对象：

destructor TForm1.Destroy;
begin
  if Assigned(wtf) then
  begin
    wtf.Terminate;       // 发送终止信号
    wtf.WaitFor;         // 等待线程完全退出
    wtf.Free;            // 释放线程对象
  end;
  inherited;
end;

3. 优化线程执行逻辑，及时响应终止信号

在线程的Execute方法中，增加更频繁的Terminated检查，确保收到终止信号后能立即退出循环并清理资源：

procedure Twtf.Execute;
const
  hopefully_big_enough_to_trigger_problem = 100000000;
var
  A: array of Integer;
  I: Integer;
begin
  SetLength(A, hopefully_big_enough_to_trigger_problem);
  try
    while not Terminated do
    begin
      for I := Low(A) to High(A) do
      begin
        if Terminated then Exit; // 每次循环都检查，快速响应终止
        A[I] := 0;
      end;
    end;
  finally
    SetLength(A, 0); // 主动释放数组资源，避免内存泄漏
  end;
end;

为什么原方法失效？ #

原代码仅调用Terminate却未等待线程结束，线程仍在运行时应用已开始回收内存，动态数组A的堆空间被释放，导致后续访问出错。TerminateThread虽能强制终止线程，但会跳过线程的资源清理逻辑（如数组A的内存释放），属于粗暴的解决方案，可能引发隐性内存泄漏。

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