delphi 里怎样主动关闭已创建的线程？

Question

terminate(),只给线程一个terminated := true; 的信号。
    在工作线程的执行单元：execute ni应该有类似一下代码：
      
thread1.execute()
begin
  while thread1.terminated  =false 
  begin
      .
      .
      .
    你的执行代码
      。
      .
      .
  end
end;
  这样，在你主程序给个terminate（）动作，工作线程将自动结束；

Answer 1

procedure TMyThread.execute;
begin
  while not Terminated do
  //Note: not "Thread1.Terminated" 
  begin
      .
      .
      .
    你的执行代码
      。
      .
      .
  end;
  //Note: 一般来说，TThread的Execute 的框架就是这样的。
end;停止：
   Thread1.Terminate;
   Thread1.WaitFor; //等待结束。