--------请教关于线程的小问题?----------
雄牛 2005-01-10 08:57:05 高手们帮看看,下面的代码是如何关联的?谢了.
A.请问一下,1段和2段是如何关联的?
B.请问Format('2.Thevalue of NUm is:%d',[i]);中的%D是什么?这一句如何输出线程返回的值?
-----------------------------1段-----------------------
Procedure TForm1.DecNum;
var
j,i:integer;
s:string;
begin
for j:=1 to CountNo do
begin
Num:=Num-10 ;
i:=Num+10;
sleep(20);
s:=Format('2.Thevalue of NUm is:%d',[i]);
SendMessage(Form1.ListBox1.Handle,Lb_Addstring,0,Longint(s));
Num:=Num+10;
end;
end;
-------------2段--------------
procedure TForm1.Button1Click(Sender: TObject);
var
threadid2:DWord;
begin
listbox1.Clear;
CreateThread(nil,0,@TForm1.DecNum,nil,0,threadid2);
end;