delphi指针问题求教

Question

我写了一个TUserInfo类，里面有两个属性和一个构造函数，属性：UserName,UserAge，构造函数是初始化两个属性为默认值空和0。下面我要在TreeView里面填充，在TreeNode的Data中保存一个TUserInfo，可是最后读取的Data中保存的TUserInfo是同一个，不知原因求教，具体代码：procedure addNode(tree: TTreeView;root: TTreeNode;index: integer);
var
  node: TTreeNode;
  pui: ^TUserInfo;
begin
new(pui);
pui^:=TUserInfo.Create;
pui^.UserName:='DD' + inttostr(index);
pui^.UserAge:=index;
node:=tree.Items.AddChild(root,pui^.UserName);
node.Data:=pui;
dispose(pui);
end;procedure TForm1.Button1Click(Sender: TObject);
var
  root: TTreeNode;
  i: integer;
begin
root:=treeview1.Items.AddFirst(nil,'hello world');
for i := 0 to 4 do
  begin
    count:=count+1;
    addnode(treeview1,root,count);
  end;
end;麻烦知道的各位给解答一下。

Answer 1

晕菜！不好意思，找到问题了，就是使用了dispose(pui)把指针给释放了。