Dephi的同一个线程支持多次Execute吗？

[F_Ronal]

创建一个Thread后，Execute方法能否多次执行呢？（不希望反复创建线程）

例如：

FreeOnTerminate := False;

procedure TReconThread.Execute;
begin
inherited;

while not Terminated do
begin
//do something
end;
Suspend();
end;

我做了测试，第一次执行Execute后，再次Resume，是不会执行Execute方法的。

是我写得不对，还是本身就不支持这种做法呢？

分不多了，见谅！

[lhy]

执行完不结束只休眠。另外还需要线程池。

[F_Ronal]

如果要使用到线程池，我就打退堂鼓了，呵呵，程序复杂了不方便调试。

[F_Ronal]

我会在主程序上通过一些操作来反复Resume、Suspend线程。二楼，你是建议这样写吧？ while not Terminated do begin //do something finish Suspend(); end;

[s11ss]

while not Terminated do begin //do something finish if not Terminated then//最好还加上这句 Suspend(); end;

[F_Ronal]

这样是否更好？ while not Terminated do begin Finished := False; DoMyWork(); if (not Terminated) and Finished then Suspend(); end; procedure DoMyWork() begin //do it Finished := True; end;

[haitao]

Finished好像没有必要了吧

[UnkownState]

楼主对execute的理解错误，首先execute是thread的一个方法，thread<> winthread可以这么说吧， execute是线程的执行体，具体的你可以看vcl中关于thread类及ThreadProc就明白了，而线程启动后就进入execute执行，当前是不会二次进入的。你suspend只是让线程不再获取时间片。

[s11ss]

Suspend放到循环里