高分求购treeview结点遍历问题（一经使用，马上结贴，急）

Question

for i := 0 to tv1.Items.Count - 1 do
  tv1.Items[i] ...

Answer 1

递归算法：
procedure gonode(tpnode:TTreeNode);
var
  i,delnode : Integer;
begin
   For i := 0 To tpnode.count-1 do begin //递归调用遍历所选结点的所有子结点
     showmessage(str);
     //在这里加入你要的代码
     if tpnode.Item[i].getFirstChild <> nil then gonode(tpnode.item[i]);
  end;
end;

Answer 2

var
  i: Intger;
begin
  for i := 0 treeview1.items.count -1 do
  begin
    //treeview1.items[i]  
  end;
end;

Answer 3

笔误，showmessage(str);显示你遍历的结点，你可以这样：
procedure gonode(tpnode:TTreeNode);
var
  i,delnode : Integer;
begin
   For i := 0 To tpnode.count-1 do begin //递归调用遍历所选结点的所有子结点
     str:=str+tpnode.Item[i].Text;
     showmessage(str);
     //在这里加入你要的代码
     if tpnode.Item[i].getFirstChild <> nil then gonode(tpnode.item[i]);
  end;
end;