--------请教关于线程的小问题?----------

雄牛 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;
...全文
75 4 打赏 收藏 转发到动态 举报
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
何鲁青 2005-01-18
  • 打赏
  • 举报
回复
线程还没有接触过,这次要用到了
先来学习学习
wsqwang884 2005-01-10
  • 打赏
  • 举报
回复

Tthread
fanhongbin 2005-01-10
  • 打赏
  • 举报
回复
现成的Tthread不用,搞这个劳什子做什么?
CreateThread(nil,0,@TForm1.DecNum,nil,0,threadid2)
是建立线程,建立线程后,代码在@Tfrom1.decnum中执行(应该用普通方法吧,类方法好像不可以)
要传递一个线程里的某个值到外部可以用全局变量。或者搞一个属性。。。。
雄牛 2005-01-10
  • 打赏
  • 举报
回复
up

16,748

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 语言基础/算法/系统设计
社区管理员
  • 语言基础/算法/系统设计社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧