delphi 节点遍历
问下大家个问题啊
我这个人员对应部门,我好比项目一部点击下,会出来包括节点以下的所有人员
但是我写的这个,不知道怎么把下级节点人员查找出来
好比项目一部的下级节点裁剪部下的人员我就查询不出来。。。不知道怎么办。。。各位大神。。。。。帮个忙。。
不胜感激,方法最好具体点啊。。
[解决办法]
参考http://blog.csdn.net/bdmh/article/details/5857236,这里是全部读取过来了,如果你在点击时读取,就在treeview的节点展开事件中读取下一级
[解决办法]
var
p:Ttreenode;
b,e,i:integer;
s:string;
p:=TV.selected;
b:=p.AbsoluteIndex;
if p.getNextSibling=nil then
b:=TV.items.count-1
else
b:=p.getNextSibling.AbsoluteIndex-1;
s:='''-1'''
for i:=b+1 to e do
s:=s+','''+TV.items[i].text+'''';
s即所有子节点的列表