大家帮看一下这一点点代码的错误,谢谢(20分)

procedure Tfrm_Assembly.TreeView1Change(Sender: TObject; Node: TTreeNode);
var
id,parid:string;
begin
id:=NodeInfo(Node.Data)^.id;
parid:=NodeInfo(Node.Data)^.parent_id;
end;
问题是在赋值的时候出现错误,我不知道错在什么地方,大家帮点忙
其中,NodeInfo是我定义的
type
NodeInfo=^MyTreeNode;
MyTreeNode=record
id:string;
parent_id:string;
level:integer;
str_caption:string;
end;

你在给Node.Data赋值的结构分配内存了吗？

你在加载node到树中来的时候有没有
var
anodeinfo :nodeinfo;
begin
new(anodeinfo);
nodeinfo^.id:= XXX
...
node.data := anodeinfo;(node为当前添加的节点)
只有在绑定了之后才会有相应的　Nodeinfo(node.data)^.id　给你用！