本文整理自网络，侵删。
为了释放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 thread.queue与synchronize的区别
Delphi 利用createservice写与桌面交互的win32服务
Delphi xe 获取 android application version 版本
Delphi 多次改变 richedit.text部份文本的颜色后，出现所有字体都变色的的解决办法
更多相关阅读请进入《Delphi》频道 >>
