对TreeView中某一个节点的子节点进行搜索的方法。非常感谢！

Question

我想对TreeView中某一个节点的子节点进行遍历，我对此不太熟悉因为时间紧张故求助于大家，请帮忙！非常感谢1

Answer 1

eg: parent_node : TTreeNode;
if parent_node.hasChildren then
begin
  parent_node.item[index].select; //<---index是序号，由0开始
end;遍历一个节点下的子节点：
for index := 0 to parent_node.items.count - 1 do
  memo1.lines.append(parent_node.item[index].text);

Answer 2

是parent_node.count not parent_node.items.count

Answer 3

实现方法：1． 获取当前目录下的所有下一级子目录，
2． 存入字符串列表中（Tstrings）。其中，用到了几个API函数。FindFirst是找出指定目录下第一个文件或目录。FindNext一般和FindFirst配合使用，用来找出下一个文件或目录。FindClose用来关闭查询
3． 用FileExists函数查找当前目录，
4． 寻找是否有满足条件的文件存在。5． 依次使各个子目录成为当前目录，
6． 递归调用本函数。7． 释放资源，
8． 返回查询结果。

Answer 4

procedure serchnod(nod:TTreenode);
begin
   if nod<>nil then begin
      showmessage(nod.Text);
      serchnod(nod.getFirstChild);
      serchnod(nod.getNextSibling);
    end;
end;
//采用递规方法，是不是很easy
//你可以将上面的showmessage换成你自己的对节点的操作