这样,怎么在TreeView里取得Edit1.text的节点。
var
  aNode:TTreeNode;
begin
  aNode:=TTreeNode.Create(TreeView1.Items);
  aNode:=TreeView1.items.//----------这儿怎么写,我想最起码应该有个函数,中间可以填String类型的值吧,可我没有找到!
end;

解决方案 »

  1.   

    为节点TreeNode1添加一个兄弟节点
    TreeView1.Items.Add(TreeNode1,节点显示内容);//返回值为新增的节点 
    为节点TreeNode1添加一个子节点
    TreeView1.Items.AddChild(TreeNode1,节点显示内容);//返回值为新增的节点
      

  2.   

    天啊!这个我知道!看清了!比如说我在TreeView里取得'毛巾',这个词所在的节点!
      

  3.   

    TreeView1.Items.AddChild(TreeView1.Selected,'New Item');
      

  4.   

    天啊!我晕!老兄还不知道我的意思!也就是说在TreeView里去查找有没有Edit1里显示的内容!
      

  5.   

    用一个循环吧。呵呵。
    如果你没有其他的查找条件,可能只有用循环来比较Treeview上的每个node的text了。
      

  6.   

    楼主,TTreeview中的所有节点的Text可以全部相同的,按Text值查找应该没有函数
      

  7.   

    for i := 0 to Treeview1.Items.Count - 1 do
       if Treeview1.Items.Item[i].Text = Edit1.text then
       begin
         Treeview1.Items.Item[i].Selected := True;
         aNode := Treeview1.Selected;
         Exit;
       end;
      

  8.   

    to  dulei115() 老兄!   我们QQ上聊吧!
    33443490
      

  9.   

    我是这样一个想法,用户在新增一个数据的时候,在combobox选择上级目录,然后程序根据用户在combobox选择的数据,把新增的内容增加到TreeView
      

  10.   

    for i := 0 to Treeview1.Items.Count - 1 do
       if Treeview1.Items.Item[i].Text = ComboBox1.text then
       begin
         Treeview1.Items.Item[i].Selected := True;
         aNode := Treeview1.Selected;
         Exit;
       end;
    Treeview1.Items.AddChild(aNode,'新增内容');
      

  11.   

    //通过字符串找到TreeView中相应的节点
    function GetNodeByText(sText: String;tv: TTreeView): TTreeNode;
    var
      c: String;
      i: integer;
    begin
      Result := nil;
      for i := 1 to  tv.Items.Count-1 do
      begin
        c := tv.Items.Item[i].Text; 
        if c = sText then
        begin
           tv.Selected := tv.Items.Item[i];
           Result := tv.Items.Item[i];
           break;
        end;
      end;
    end;
      

  12.   

    你只是想找到某个节点的内容,再加以判断吗?我这里有段代码,功能是找到名为'历史资料'的节点 ,再删除其子节点.
    供参考
    procedure TForm1.Button4Click(Sender: TObject);
    var i:integer;
        xx:TTreeNode;
    begin
      for i:=0 to suiTreeView1.Items.Count -1 do
      begin
        xx:=suiTreeView1.items.item[i];
        if xx.Text='历史资料' then
        begin
          Edit1.Text:=xx.Text;
          xx.DeleteChildren;
          exit;
        end;
      end;
    end;