type PMyData = ^TMyData;
TMyData = Record
ID: Integer;
Name: String;
end;var PV :PMyData;赋值
Node := TreeView1.Items.Add(nil,'123');
New(PV);
PV.ID := 3;
PV.Name := '123';
Node.Data := PV;使用
ii :=PMyData(Node.Data)^.ID;
str := PMyData(Node.Data)^.Name;别忘了最后Dispose(PV);
TMyData = Record
ID: Integer;
Name: String;
end;var PV :PMyData;赋值
Node := TreeView1.Items.Add(nil,'123');
New(PV);
PV.ID := 3;
PV.Name := '123';
Node.Data := PV;使用
ii :=PMyData(Node.Data)^.ID;
str := PMyData(Node.Data)^.Name;别忘了最后Dispose(PV);
我用的就是用两个TREEVIEW
一个显示NAME
一个显示ID
但是显示ID的是HIDE;
treenode.data := Pointer(123);
Integer(treenode.data)