本文整理自网络，侵删。
为了释放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 windows xp下屏蔽ctrl_alt_del键的方法
Delphi applicationevents1 webbrowser1屏蔽右键菜单
更多相关阅读请进入《Delphi》频道 >>
