如题

解决方案 »

  1.   

    TreeView.Items.add(nil, 'asdf')
    TreeView.Select.Text:='asdf'
    搂主的问题不明不白的。
      

  2.   

    我用了TreeView1,Edit1,Edit2,还有"添加""删除"2个按纽,添加的源程序:
    begin//根结点名称已经给出,所以不用考虑给给根结点赋值,用Edit1给子接点赋值
      TreeView1.SetFocus;
      TreeView1.Items.AddChild(TreeView1.Selected,Edit1.Text+Edit2.text);
      TreeView1.Selected.Expand(True);
    end;
    删除的源程序:
    begin
       TreeView1.SetFocus;
       TreeView1.Selected.Delete;
       TreeView1.Selected.Expand(True);
    end;
    分数项名称:Edit1
    占上级分数项百分比: Edit2
    运行的时候Edit2用来填写百分数,这样生成一个树.
    我现在想把这棵树存储到SQL中,我写了一段程序,
    var
      i,I_id,Parent_I_id:integer;
      I_name:string;
    begin
      for i:=0 to TreeView1.Items.Count-1 do
      begin
      I_id:=TreeView1.Items[i].Index;
      Parent_I_id:=TreeView1.Items[i].Parent.Index;
      I_name:= TreeView1.Items[i].Text;
      ADOQuery3.SQL.Clear;
      ADOQuery3.SQL.Add('exec items_info "1",I_id,I_name,Parent_I_id, "2"');
      ADOQuery3.ExecSQL;
      end;
    end;
      

  3.   

    treeview1.items.addobject(nil,'***',pointer(number));//带节点的保存数据。
    还有treeview1.items.addchildobject(node,'***',pointer(number));//node:ttreenode;number是数字
      

  4.   


    就是一个结点,他的文本是TEXT,但他还应该有个值VALUE,