关于TThreadList的问题

本帖最后由 tohaerok 于 2009-07-21 18:44:55 编辑

解决方案 »

  1.   

    TDoSomething.YY;前，TForm1.FormCreate执行过了吗？
    不如：移在unit的初始化区：
    initialization
    begin
      Threadlist1 := TThreadList.Create;
    end;
      

  2.   

    var 
      Threadlist1: TThreadList; //全局  这个全局只是你的unit2内的全局而已
      

  3.   

    我刚才在
    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上问了好几次问题都是这样,我都不好意思了...
    最后还是要感谢各位!!!