请问：ListView和TreeView问题？

Question

PMyInfo=^TMyInfo;
TMyInfo=record
    iCode:integer;
end;对于TreeView和ListView，在增加节点或行时：
var
    MyInfo:PMyInfo;   
        new(MyInfo);
    TreeNode.Data:=MyInfo或ListItem.Data:=MyInfo;在点击读取时:
    PMyInfo(TreeNode.Data)^.iCode
    PMyInfo(ListItem.Data)^.iCode

Answer 1

在增加时还要赋值：
new(MyInfo);
MyInfo^.iCode=...
TreeNode.Data:=MyInfo或ListItem.Data:=MyInfo;

Answer 2

：　gzmhero(hihihi)　:感谢！我自己等一会试试吧！