treeview 节点数值的问

Question

id     username
1      小赵
2      小钱
3      小孙
4      小李如何对 treeview 节点赋值，各节点以此显示的 username 的内容，点击节点 获取的值为 id 呢？

Answer 1

var
tNode:TTreeNode
begin
  tNode.Data:=TObject(id);
  tNode.............
end;

Answer 2

2楼的很明白了
我的DEMO
type    TMNode=record
       Data:Integer;
    end;
 PMNode=^TTMNode;
添加代码   var
     Node:TTreeNode;
     M3Data:PMNode;
  begin
      New(M3Data);
      M3Data.Data:=123;
      Node:=TV.Items.AddChild(ANode,'TEXT');
      Node.Data:=M3Data;
  end;
访问
procedure TM3SingleMainForm.tvJobSpaceChange(Sender: TObject;
  Node: TTreeNode);
  Node: TTreeNode);
begin
  Caption:=inttostr(TMNode(Node.Data^).Data);
end;