for n:=0 to 4 do
begin
postthread.Create; (线程单独一个单元)
end;
创建5个线程,n是全局变量,传到线程中用.
我在线程中中断后看,线程到是执行了5次,但为什么n的值永远都是5呢?请问应该怎么办?
begin
postthread.Create; (线程单独一个单元)
end;
创建5个线程,n是全局变量,传到线程中用.
我在线程中中断后看,线程到是执行了5次,但为什么n的值永远都是5呢?请问应该怎么办?
解决方案 »
- DELPHI日期转换 ?
- UDL文件无法打开,双击udl文件出现问题:无法加载 Msdasc.dll,请验证Msdasc.dll存在于本系统中且被注册!
- 关于报表
- 在Win XP下测试应用程序,汉字显示为“???”,为什么?
- 就真的没有人会吗?使用delphi7中的Indv的IdUDPClient和IdUDPServer控件!
- 奇怪问题,在线等待求救!!!
- 请问那里有windows 95 的安装程序?我的分不多了,答对者每人十分吧!谢谢了!
- 关于TMainMenu,UP有分,不够再给!!!
- 请教:delphi7 还有 TNMUDP控件 控件吗?如果没有的话,是用哪个代替的?谢谢!
- 还有就是怎么样做出像ie那一样的地址输入框(就是那种combox),谢谢!
- 医院管理中门诊收费系统怎么样做日清月结?
- 如何设置SMTP保护??
增加类函数
类:postthreadprivate
n:integer;procedure SetN(nIn:integer);
begin
n:=nIn;
end;function GetN:integer;
begin
Result:=n;
end; for n:=0 to 4 do
begin
postthread.Create; (线程单独一个单元)
postthread.SetN(n);
end;
begin
postthread.Create; (线程单独一个单元)
postthread.SetN(n);
postthread.resume;/////////////执行线程。
end;
n是for的循环变量,根据delphi对for语句循环变量的定义,n只能被访问,不能在循环中修改,也不能通过其他方法修改,包括你的线程,在for结束后,n将保存最后一个值,也就是你的结束条件,在这是5,及当n为4时继续,当n为5时,退出for,