线程终止释放问题

Question

线程FThread创建时
设置FreeOnTerminate := True;
button的click事件代码
if assigned(FThread) then
  FThread.Terminate;好像不能每次都保证将线程停止，
那位大虾有没有更好办法，谢谢

Answer 1

1、确保在thread.exe里判断terminated=true的时候退出
2、如果进入了suspend状态，要先resume再terminate
3、terminate之后再waitfor一下确保完成如果还停不了只能怪borland和microsoft

Answer 2

FThread := nil;
FThread := TFThread.Create(True);
----------
if assigned(FThread) then
begin
  FThread.Suspend;
  FThread.Free;
  FThread := nil;
end;