高手！treeview中如何设child（子）结点？

Question

TreeView1.Items.Add(TreeView1.Selected,PChar('长城公司'));//////设为根结点
TreeView1.Items.Add(nil,adodataset1.FieldValues['name']);//////设为子结构点
即＋长城公司
|
|-----销售部
|
|-----流通部
|
|-----销售部
|
|-----销售部
|
|-----销售部

Answer 1

var
  tn:TTreeNode;tn:=TreeView1.Items.Add(nil,PChar('长城公司'));//////设为根结点
TreeView1.Items.Addchild(tn,adodataset1.FieldValues['name']);//////设为子结构点

Answer 2

var
  ATreeNode : TTreeNode;
begin
  ATreeNode := TreeView1.Items.Add(nil,PChar('长城公司'));
  TreeView1.Items.Addchild(ATreeNode, adodataset1.FieldValues['name']);
...
end;

Answer 3

var
  FatherNode: TTreeNode;
.....  FatherNode:= TreeView1.Items.Add(nil,'....');
  TreeView1.Items.Addchild(FatherNode, '......');

Answer 4

var
  FatherNode: TTreeNode;
  sonnode:ttreenode;
.....  FatherNode:= TreeView1.Items.Add(nil,'....');           //父节点
  sonnode:=TreeView1.Items.Addchild(FatherNode, '......');//子节点