delphi中TreeView节点遍历实例源码介绍。为释放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;