本文整理自网络，侵删。
为了释放TreeView中每个节点的Data占用的内存，需遍历整个TreeView，于是上网搜索一番，参考各位高手的代码，编写如下：
tv: TTreeView;
procedure OverTreeView(node: TTreenode);
......
procedure Form1.FormDestroy(Sender: TObject);
var
node: TTreenode;
begin
if tv <> nil then
begin
node := tv.Items.GetFirstNode;
if (node <> nil) then
begin
if (node.Data <> nil) then Dispose(node.Data);
OverTreeView(node);
end;
end;
end;
......
procedure Form1.OverTreeView(node: TTreenode);
//释放data占用的内存
begin
while node <> nil do
begin
if node.HasChildren then
begin
node := node.getFirstChild;
if node.Data <> nil then Dispose(node.Data);
Overtreeview(node);
node := node.Parent;
end;
if node.getNextSibling <> nil then
begin
node := node.getNextSibling;
if node.Data <> nil then Dispose(node.Data);
end else exit;
end;
end; 相关阅读 >>
Delphi api 函数中使用 pchar 参数的几种方法
Delphi timagelist 中使用 透明 png 图标
Delphi getprocessisadmin()判断exe是否以管理员身份启动
Delphi 使用 inputbox、inputquery 的启发
Delphi 解决Delphi indy10下 utf8码转换的问题
更多相关阅读请进入《Delphi》频道 >>
