头好疼，树的遍历，请教各位！

[jjfzjg]

把treeview的结点text属性显示在listbox上，我的过程有问题，小弟递归不太会
procedure TForm2.shownode(node: ttreenode);
begin
listbox1.Items.add(node.Text);
if Node.HasChildren then

for I := 0 to Node.Count-1 do
begin

shownode(node.Item[i]);
end;

end;


请教各位！哪儿问题？

[DelphiBoy2003]

http://expert.csdn.net/Expert/topic/1923/1923268.xml?temp=.3507044
帮帮忙吧

[lion_lh]

什么问题？
没定义 I 吧
procedure TForm2.shownode(node: ttreenode);
var
i:integer;
begin
listbox1.Items.add(node.Text);
if Node.HasChildren then

for I := 0 to Node.Count-1 do
begin

shownode(node.Item[i]);
end;

end;

[sduzjw]

记得有一个属性可以唯一确定每一个节点的

[jjfzjg]

我的i变量是全局变量，在上面声明

[fhuibo]

没问题了

[Wnyu]

procedure TForm1.shownode(node: ttreenode);
var
i:integer;
begin
listbox1.Items.add(node.Text);
if Node.HasChildren then
for I := 0 to Node.Count-1 do
begin
shownode(node.Item[i]);
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
shownode(treeview1.Selected);
end;

[hof]

在那边回答过了

[liujiang]

begin
listbox1.Items.add(node.Text);
if Node.HasChildren then
for I := 0 to Node.子节点个数-1 do
begin
shownode(node.Item[i]);
end;
end;

[jjfhello]

procedure TForm1.deldata(node: ttreenode);
var i,id:integer;
mynode:ttreenode;
ponode:pNode;
begin id:=pnode(node.Data)^.ID;
with adoquery1 do
begin
sql.Clear;
SQL.Add('update catalog set pid=''1'' where id='+inttostr(id));
ExecSQL;
end;

if Node.HasChildren then
for I := 0 to Node.Count-1 do
begin
deldata(node.Item[i]);
end;

end;