本文整理自网络,侵删。
//定义结构体
TNodeInfoEx = Record
NodeID : Integer;
ParentID : Integer;
end;
PNodeInfoEx = ^TNodeInfoEx;
//向树上加结构体
procedure AddItem(TV:TTreeView);
var
PTreeItemEx:PNodeInfoEx;
begin
New(PTreeItemEx);
PTreeItemEx^.NodeID:=1;
PTreeItemEx^.ParentID:=1;
TV.Items.AddObject(, , Pointer(PTreeItemEx));//把结构体指针加到Items的地址列
end;
在析构树时要把在堆上动态创建的结构体Dispose掉
相关阅读 >>
Delphi idhttp http.get 获取json数据
Delphi winapi: movewindow - 改变窗口的位置与大小
Delphi 能否把.txt文件的数据导入到access数据库中
更多相关阅读请进入《Delphi》频道 >>