關於TList(TThreadList)類和TThread類的一些疑問
1.因為在同一個執行緒物件裡,如果兩次構造,將產生兩個獨立的執行緒,不但執行是獨立的,而且使用執行緒的區域性變數也是獨立的、所以有下面的程式碼:(30分)
ThreadList為TList型別(下同)
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 |
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:=
|