在多线程数组当中，寻找空闲或被销毁的线程，重新创建。。。。。。。。。。。。

[r0ckin9]

var
Threads : array of TWebThread;
i:integer;

setlength(Threads,listbox.count+1);

for i:= 0 to listbox1.count-1{count: 2 rows} do
begin
Threads[i] := TWebThread.Create(i,memo1); //创建3条线程
end;

这些没问题，现在我关闭掉其中两条, 例如Threads[2]和Thread[0], Thread[1]还在运行.

问题来了，我现在又要开启一条新线程, 如何从Threads数组里面找到一条或多条空闲的线程编号，重新创建呢?

Threads[?] := TWebThread.Create(i,memo1);

[lyhoo163]

建议你使用指针链，一个节点，挂一个线程，通过循环检查线程是否线束，并删除该节点，这样，挂在指针链上的，就是末结束的线程了。

[Mr Dang]

ThreadList.Add(TWebThread.Create(i,memo1));