关于Treeview的删除用法?

有这样的一个treeview  
  AA  
      11  
      22  
      33  
  BB  
      01  
      02  
      03  
  CC  
      010  
      020  
      030  
      假设现在要删除BB节点下的03子节点   请问该如何遍历查找那??  
  问题点数：40、回复次数：5Top

1 楼gzmhero（hihihi）回复于 2005-04-04 08:58:26 得分 15

procedure   TForm1.Button1Click(Sender:   TObject);  
  var  
          i,j:integer;  
  begin  
          for   i:=0   to   TreeView1.Items.Count-1   do  
                  if   TreeView1.Items[i].Text='BB'   then  
                  begin  
                          for   j:=0   to   TreeView1.Items[i].Count-1   do  
                                  if   TreeView1.Items[i].Item[j].Text='03'   then  
                                  begin  
                                          TreeView1.Items[i].Item[j].Delete;  
                                          break;  
                                  end;  
                          break;  
                  end;  
  end;  
  Top

2 楼heluqing（鉴之小河〖劳累求充实〗)(vcl .net）回复于 2005-04-04 09:14:40 得分 25

如果子介点的名字都是不相同的话，可以直接一次循环就可以了  
  for   I:=0   to   TreeView1.items.count  
  begin  
          if   TreeView1.items[I].text='03'   then  
          begin  
                  TreeView1.items[I].Delete;  
                  Showmessage('Deleted');  
          end;  
  end;  
  -----------------------------------  
  gzmhero(hihihi)老大的  
  TreeView1.Items.Count是树里所有节点的个数  
  如果只是找第一层的节点的时候可以用  
  repeat...Until  
  里面用TreeNode.getnextSibling来做Top

3 楼dongliu（一沙一世界，一花一天堂）回复于 2005-04-04 09:29:17 得分 0

顶Top

4 楼fhuibo（永远深爱一个叫“莎”的好女孩儿）回复于 2005-04-04 10:26:33 得分 0

TreeViewOP.Selected.DataTop

5 楼hq111（海洋123）回复于 2005-04-04 11:46:20 得分 0

感谢!Top

相关问题

• 节点
• treeview1
• items
• bb
• then begin
• deleted
• count
• text

• 帖主：hq111
• gzmhero
• heluqing

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载