邊歷TreeView的每個節點。(50分)

邊歷TreeView的每個節點，將每個節點的TEXT放入到一個StringList中。

For I:=0 to TreeView1.Items.Count -1 do
StrList.add(TreeView1.Items.Text);

for i:=0 to tvw.items.count-1
stringlist.add(tvw.items.text);

var
i: integer;
TS: TStringList;
begin
TS :=TStringList.Create;
for i :=0 to TreeView1.Items.Count - 1 do
TS.Add(TreeView1.Items.Item.Text);
end;

一个for循环就可以啊
var i:integer;
Str:TStringlist;
baegin
str:=TSringlist.create;
for i:=0 to treeview1.itesms.count-1 do
begin
str.add(treeview1.item.text);
end;
end;

procedure Txxx.SearchNode(tmpNode:TTreeNode;AllTree:Boolean;
var
SiblingNode:TTreeNode;
begin
SiblingNode:=tmpNode.getNextSibling;
//tmpNode:=TreeView1.Items.Item[0];
//tmpNode:= 某个想要遍历的节点
if AllTree then
while tmpNode<>nil do begin //遍历整棵树
//do....///////要的处理
tmpNode:=tmpNode.GetNext;
end
else
while (tmpNode<>nil) and (tmpNode<>SiblingNode do begin //遍历此节点下的所有子节点
//do...///////要作的处理
tmpNode:=tmpNode.GetNext;
end;
end;

多人接受答案了。