怎么遍历TREEVIEW里面被选节点的所有子节点，包括子节点的子节点？？？

[zlstone]

？？？？？？？？？？？？？？？？？？？？？？？？？

[xzhifei]

方法1:
var
i;integer;
xx:TListItem;
begin
for i:=1 to Listview1.Items.count-1
begin
xx:=ListView.Items.Item[i];
//process xx here
end;
end;
方法2:
var
lnNode: TTreeNode;
begin
lnNode := TreeView1.Items.GetFirstNode;
while not (lnNode = nil) do begin
{
//process xx here
}
lnNode := lnNode.GetNextSibling;
end;
end;

[bluemeteor]

for i:=1 to TreeView1.Items.count-1
begin

end;

[proman]

首先把被选中的节点要找出来。然后可以对每一个选中的节点进行查找即可。难度应该没有吧。
当然查找子节点的过程可能要用到递归的。

[ehom]

procedure GetInfo(TreeNode:TTreeNode);
var
i:integer;
begin
for i:=0 to TreeNode.Count-1 do
begin
if TreeNode[i].HasChildren then
begin
Showmessage(TreeNode.Item[i].Text);
GetInfo(TreeNode[i]);
end
else
Showmessage(TreeNode.Item[i].Text);
end;
end;


GetInfo(TreeView.Selected);//调用

[chao_jian]

一个递归函数
function FindNode(ANode: TTreeNode; const condition: Variant; ARecurse: Boolean): TTreeNode;
var
Node: TTreeNode;
begin
Result := nil;
Node := ANode;
while Node <> nil do
begin
//遍历终止条件,例如：
if condition = Node.Text then
begin
Result := Node;
Break;
end
else
if ARecurse then
begin
if Node.HasChildren then
Result := FindNode(Node.getFirstChild, condition, ARecurse);
if Result = nil then
Node := Node.getNextSibling
else
Node := nil;
end;
end;
end;

[feibob]

递归！！

[citytramper]

深度优先，广度优先，任选其一