我用如下方法遍历treeviewshu 树对否?

Question

可以，但是注意，TreeNode.Text必须保证唯一性。

Answer 1

但是,运行后没得到如期结果啊.到底那错了(TreeNode.Text是唯一的)?

Answer 2

var  
  I:  Integer;
  node:treenode;
  begin
  for  I  :=  0  to  TreeView1.Items.Count  -  1  do
  begin  //看看是否少了??????????
  if  TreeView1.Items[i].Text='b'  then
      begin
            node:=TreeView1.Items[i];
            TreeView1.Items.addchild(node,'要加入的节点的text');
        end;
  end;
  end;

Answer 3

你需要先添加一个根节点，然后再添加：  for  I  :=  0  to  TreeView1.Items.Count  -  1  do
    for x := 'a' to 'b' do
      if  TreeView1.Items[i].Text=x  then
        begin
          node:=TreeView1.Items[i];
          TreeView1.Items.addchild(node,x);
        end;

Answer 4

上面代码有误，完整代码：
var
  i:integer;
  x: char;
  node:ttreenode;
begin
  TreeView1.Items.Add(nil,'a');
  for x := 'a' to 'b' do
    for  I  :=  0  to  TreeView1.Items.Count  -  1  do
      if  TreeView1.Items[i].Text=x  then
        begin
          node:=TreeView1.Items[i];
          TreeView1.Items.addchild(node,char(byte(x)+1));
        end;
end;