问一个ttreeview的问题

Question

根节点已有，有一张表，里面有id和name两列，要想实现子节点为name（id）应该怎么写？

Answer 1

大概是下面的语句，只要记下父节点的句柄，在它下面加多少子节点都没问题。var 
    MainNode,ChildNode:TTreeNode;
begin
  MainNode:=TreeView1.Items.AddChild(nil,table1.Fields.fieldbyname('ID').AsString);
  ChildNode:=TreeView1.Items.AddChild(MainNode,table1.Fields.FieldByName('name').AsString);

Answer 2

var
   node_p:pstring;
begin
  new(node_p)
  node_p^:=id
  ChildNode:=TreeView1.Items.AddChild(MainNode,table1.Fields.FieldByName('name').AsString).Data:=node_p
end; 
则  pstring(treeview1.selected.data)^=id 的值