5,392
社区成员
发帖
与我相关
我的任务
分享
var
tbLoop:Cardinal;
KeyLoop:Cardinal;
tb:string;
Html:string;
tbs:TStringList;
newThread:TSearchTb;
begin
for tbLoop := 0 to lstManagement.Count - 1 do
begin
tb:=lstManagement.Items[tbLoop];
newThread:=TSearchTb.Create(True);
newThread.TbName:=tb;
newThread.Html:=TbBasePath + tb;
newThread.Finish:=False;
newThread.Resume;//开始执行
ThreadList.Add(@newThread);//加入线程列表
end;
newThread:=nil;
var
i:Integer;
begin
for i := 0 to ThreadList. - 1 do
begin
if TThread(ThreadList.Items[i]^).ClassNameIs('TSearchTb') then
begin
if TSearchTb(ThreadList.Items[i]^).Finish then
begin
TSearchTb(ThreadList.Items[i]^).Destroy;//销毁线程
ThreadList.Delete(i);//从列表中移除
end
else
begin
TDeleteTb(ThreadList.Items[i]^).Destroy;//销毁线程
ThreadList.Delete(i);//从列表中移除
end;
end;
end;
end;