在产生TREEVIEW中,如何给结点赋值 如题 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 TreeView.Items.add(nil, 'asdf')TreeView.Select.Text:='asdf'搂主的问题不明不白的。 我用了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; treeview1.items.addobject(nil,'***',pointer(number));//带节点的保存数据。还有treeview1.items.addchildobject(node,'***',pointer(number));//node:ttreenode;number是数字 就是一个结点,他的文本是TEXT,但他还应该有个值VALUE, 关于常量是否可以在程序中更改其值的问题。 help!!!help!!!help!!! 关于修改数据的问题. fastreport2.4使用的问题,如何显示数据长度不固定的字段? 救急~~~~下午就要去演示了 【紧急求救】操作文件替换字符串 请问如何修改网络驱动器的卷标? ?? FastReport简单问题 ??? 软件桌面设置。。。。。。。。。。。。?? 在Delphi中用Sql语句以时间为查询条件,为什么总是出错?(紧急!!!!!!) 请问那位大虾有关于硬盘分区表和EXE文件格式的详细资料? 如何得到鼠标的位置,及当前界面上某个控件的位置 关于Webbrowser的问题,高手在不在?
TreeView.Select.Text:='asdf'
搂主的问题不明不白的。
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;
还有treeview1.items.addchildobject(node,'***',pointer(number));//node:ttreenode;number是数字
就是一个结点,他的文本是TEXT,但他还应该有个值VALUE,