16,748
社区成员
发帖
与我相关
我的任务
分享
var
FThread: TThread;
FThreadList: TObjectList;
begin
while FThreadList.Count > 0 do
begin
FThread := FThreadList.Items[0];
FThread.Terminate;
FThread.Waitfor;
FThread.Free;
FThread.Delete(0);
end;
FThreadList.Free;
end;