multithreading - 正确的线程销毁

Question

你好在我的表单中，我在运行时创建 TFrame。在此框架中，我创建后台线程并在无限循环中执行命令。但是当我销毁这个框架时，我应该销毁这个线程。我尝试一下

thread.Suspend;
thread.Terminate;
FreeAndNil(thread);

但是得到 AV 和 ThreadError。我应该如何销毁线程？

Answer 1

您必须确保线程退出其 Execute 方法才能正确终止它。

代码可能是这样的:

procedure TThread.Execute;
begin
  while not Self.Terminated do
  begin
    //do something
  end;
end;

当你想销毁线程时调用这个:

thread.Terminate;
thread.WaitFor;
FreeAndNil(thread);