var data:^string; NOde:Ttreenode; begin new(data); data^:=Str_aa; //不重复的值 Node:=TreeView.items.addchildobject(nil,Str_Text,Data); //其中data中的值可以作为不重复的值,而Str_text为接点上面显示的值end;另外,数据库中的表可以这样建立! id Text Parentid 节点编号 节点名称 父节点编号根节点的父节点默认可以为 0.从数据库刷新数据到Tree中,可以用递归的方法,具体的算法就不详细写了.
NOde:Ttreenode;
begin
new(data);
data^:=Str_aa; //不重复的值
Node:=TreeView.items.addchildobject(nil,Str_Text,Data);
//其中data中的值可以作为不重复的值,而Str_text为接点上面显示的值end;另外,数据库中的表可以这样建立!
id Text Parentid
节点编号 节点名称 父节点编号根节点的父节点默认可以为 0.从数据库刷新数据到Tree中,可以用递归的方法,具体的算法就不详细写了.