用TTreeView如何创建一棵树 ？

[dgc]

用TTreeView如何创建一棵树 ？
要求:可方便在树上增加世点，取消节点。

[taogou]

先定义一个节点类的对象 TreeNode:TTreeNode
加入根节点,TreeNode:=TreeView.Add(nil,'aa');
加入它的字节点TReeNode.AddChild(TreeNode,'bb')
删除TreeView.Delete('aa');

大概是这样吧,你去看帮助,上面有比较的 详细的例子

[taogou]

先定义一个节点类的对象 TreeNode:TTreeNode
加入根节点,TreeNode:=TreeView.Add(nil,'aa');
加入它的字节点TReeNode.AddChild(TreeNode,'bb')
删除TreeView.Delete('aa');

大概是这样吧,你去看帮助,上面有比较的 详细的例子

[iammen]

用递归呀！

[dgc]

前些天，向大家提出了此问题，因外出工作，没及时上来查阅，请谅了。
我是想按以下结构记录创建一棵树，当时我没将条件说清楚，请见谅了，但谁对用库记录创建树有更好的方法，可在此发表。
我认为以下程式，对上一些人有用，就挂上了。

库结构

parcode parname orgcode orgshortname
(父点号 父点名 子点号 子点名) --都是string
----------------------------------------------

========================================================

procedure TFormPsn.ToolButton1Click(Sender: TObject);
var
SitNod:Integer;
ParInt:Integer; //父节点编号
CurMjs:String; //子节点显示文本
PreMjs:String; //父节点显示文本
CkNode:TTreeNode;//节点位
begin
if not FormPubl.DatabaseK4HRMS.Connected then
begin
FormPubl.DatabaseK4HRMS.Connected:=True;
QueryOrg.Active:=True;//Query Active
end
else
begin
QueryOrg.Active:=True;//Query Active
end;
TreeViewOrg.Items.Clear;
if QueryOrg.Active then
begin//开始
SitNod:=0;
ParInt:=0;//初始化变量
CkNode:=nil;
PreMjs:='';
CurMjs:='';
QueryOrg.First;
while not QueryOrg.Eof do
begin
PreMjs:=QueryOrg.fieldbyName('parcode').AsString
+'---' //父节点显示文本（两字串相加）
+QueryOrg.fieldbyName('parname').AsString;
CurMjs:=QueryOrg.fieldbyName('orgcode').AsString
+'---' //子节点显示文本（两字串相加）
+QueryOrg.fieldbyName('orgshortname').AsString;
if ParInt=0 then //Root Node
begin //第一次处理root node
CkNode:=nil; // farther node
CkNode:=TreeViewOrg.items.Add(CkNode,PreMjs);//Root Node
end
else
begin//子节点处理
for SitNod:=0 to TreeViewOrg.Items.Count-1 do
begin
if TreeViewOrg.Items[SitNod].Text=PreMjs then
CkNode:=TreeViewOrg.Items[SitNod]
end;
end;
CkNode:=TreeViewOrg.items.addchild(CkNode,CurMjs);//取父节点值
Inc(ParInt);
QueryOrg.Next;
end; //Eof
end;//end 完成
end;

[jabmoon]

其实这个很简单，比这个复杂得多的，根据数据库记录创建TreeView我也做过，唯一要注意的是，如果记录太多，父节点和子节点全部一次创建效率很低，最好是开始时只创建父节点，当双击父节点展开时，再创建子节点。

[dgc]

画树在现时的编程中使用率很高我以上的方法并不好，各位可发表各自主法，对我是很有帮助的还有同志们。

[lubing317]

hao