//nodelist1:tlist;
//初始化
DataSet.FindFirst;
NodeList1:=TList.Create;
Grade:=0;
//建立头节点
New(Data);
Data^:=DataSet.fieldbyName('Number').AsString;
ThisNode:=TreeView.Items.AddObject(nil,DataSet.fieldByname('Name').AsString,Data);
NodeList1.Add(ThisNode);
DataSet.Next;
//////////////////
为什么NodeList1.count=0?(dataset非空)难道TTREENODE不是指针?
//初始化
DataSet.FindFirst;
NodeList1:=TList.Create;
Grade:=0;
//建立头节点
New(Data);
Data^:=DataSet.fieldbyName('Number').AsString;
ThisNode:=TreeView.Items.AddObject(nil,DataSet.fieldByname('Name').AsString,Data);
NodeList1.Add(ThisNode);
DataSet.Next;
//////////////////
为什么NodeList1.count=0?(dataset非空)难道TTREENODE不是指针?
解决方案 »
- 我用DBGRIDEH 开发一个功能
- 求用Delphi做的一个简单的IM软件代码
- 在网页中模拟键盘输入 急用
- delphi 高手请进,小弟有问题请教
- 造假数一数........................
- 下面的sql语句怎么语法错误?怎么修改?
- 急!急!在线等待!报表打印出来以后,为什么表格线的颜色特别浅?
- 怎么要怎么办才能响应用户点击了位于任务栏的程序窗体的事件?
- 通过Delphi提供的TServerSocket和TClientSocket能够得到客户端的Mac地址吗?
- SQL7备份问题,关键是问题,分数不是问题
- imageen对黑白图片旋转怎么有黑边啊?
- 关于ADO查询问题,急,在线等待
我的问题不是这个,是TTreeNode好像不能保存在TLIST中。
不管TTREENODE是不是指针, nodelist1.add都会另count加1的。
nodelist1.add(nil) 也会加1,
不知道你是怎么判断count为1的.
for i:=0 to list.count-1 do
begin
~~~~~
end;
不循环
你想实现什么?你的方法我是不会用的
dataset.fieldbyname('name').asstring
debug 有数据,但节点保存不了?
急~~~~~~~~~~~~~~~~
list2.free;
LIST1S数据还在吗?我指针有时侯有的不太好。找到问提原因,给分!!!