请问线程结束后如何重启线程啊？

Question

请问线程结束后如何重启线程啊？procedure TThread1.Execute;
begin
  inherited;
  while not Terminated do begin  end；
end；上面的不行啊

Answer 1

procedure TThread1.Execute; 
begin 
  //inherited; 基类TThread的Execute方法是抽象的，去掉不然会出错
  while not Terminated do begin   end； 
end； 线程的启动用:TThread.Resume();

Answer 2

如果你不用delphi的线程类来思考，所谓线程结束也就是函数退出，只有重新调用了你重新创建个线程对象也行啊，或者楼上的方法