关于TThreadList的问题 本帖最后由 tohaerok 于 2009-07-21 18:44:55 编辑 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 TDoSomething.YY;前,TForm1.FormCreate执行过了吗?不如:移在unit的初始化区:initializationbegin Threadlist1 := TThreadList.Create;end; var Threadlist1: TThreadList; //全局 这个全局只是你的unit2内的全局而已 我刚才在procedure TDoSomething.YY;里定义了个tdl:TThreadList在YY过程中Create,发现可以LockList,而tdl的值是(),但是Threadlist1的值是nil,这明显是没有对象化,但是我确实对象化过它,结果问题就出现在对象化上,我写了个过程来做建立和释放这个动作,procedure CreateThreadList(bol: Boolean; trl: TThreadList);改成procedure CreateThreadList(bol: Boolean; var trl: TThreadList);就OK了...是我的不严谨造成的这次错误...哎,在csdn上问了好几次问题都是这样,我都不好意思了...最后还是要感谢各位!!! 为什么我HOOK鼠标钩子以后第二次点击才起效? 时间相加减的奇怪代码 求fastreport 4.x 中文版或汉化资源的下载地址! 为什么 showmessage('ok')不执行,而后面的代码执行了? 为什么没有.DLL文件 请问如何设置主从表的连接 EXCEL保存问题,Xl9597对应的常量是多少? 如何实现像ZipMagic那样的技术? treeview的簡單問題 编一个小型数据库值多少钱??? Incompatible types: 'Grids.TGridOption' and 'GridsEh.TGridOption' delphi控制word生成pdf的问题
不如:移在unit的初始化区:
initialization
begin
Threadlist1 := TThreadList.Create;
end;
Threadlist1: TThreadList; //全局 这个全局只是你的unit2内的全局而已
procedure TDoSomething.YY;
里定义了个tdl:TThreadList
在YY过程中Create,发现可以LockList,而tdl的值是(),
但是Threadlist1的值是nil,
这明显是没有对象化,
但是我确实对象化过它,
结果问题就出现在对象化上,
我写了个过程来做建立和释放这个动作,
procedure CreateThreadList(bol: Boolean; trl: TThreadList);
改成
procedure CreateThreadList(bol: Boolean; var trl: TThreadList);
就OK了...是我的不严谨造成的这次错误...哎,在csdn上问了好几次问题都是这样,我都不好意思了...
最后还是要感谢各位!!!