给定一个Node的text的字符串，如何在Treeview中定位这个Node上？

给定一个Node的text的字符串，如何在Treeview中定位这个Node上？ 问题点数：10、回复次数：4Top

1 楼yjs_lh（长风浪子）回复于 2002-06-15 16:58:28 得分 10

用一个算法去找。  
  但是，当两个节点的Text相同时，只能找到第一个。当然，也可以指定一个起始点，去找它的Node.  
   
  function   FindNode(TreeView:   TTreeView;   startnode:   TTreeNode;   atext:   String);  
  var  
      node:   TTreeNode;  
  begin  
      Result   :=   nil;  
      if   startnode   =   nil   then    
            node   :=   TreeView.Items.GetFirst  
      else  
            node   :=   startnode;  
      while   node   <>   nil   do   begin  
          if   node.text   =   atext   then   begin  
              Result   :=   node;  
              Break;  
          end;  
          node   :=   node.GetNext;  
      end;      
  end;Top

2 楼monkely（）回复于 2002-06-15 17:00:47 得分 0

如何是我刚刚添中进去的，也要这样找？Top

3 楼ihihonline（潇潇->戒烟）回复于 2002-06-15 17:42:29 得分 0

嘻嘻，FindNodeTop

4 楼lincanwen（密码错误）回复于 2002-06-15 17:50:43 得分 0

upTop

相关问题

• 给定
• node
• startnode
• treeview
• atext
• ttreenode
• nil
• 中定位这个
• 的text的字符串
• begin result

• 帖主：monkely
• yjs_lh

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