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;

相关阅读 >>

Delphi x秒生成大量垃圾字符

改写个Delphi 版 lz前辈的openprocess

Delphi 拷贝文件夹内所有内容

Delphi 10.3.x 截取字符串函数substring 和copy()常用字串符处理函数用法

Delphi 全局变量 hinstance 到底是在什么时候赋值的?

Delphi dbgrideh 的分组统计 datagrouping

Delphi 判断一个颜色是否是亮色

Delphi 调用驱动

Delphi禁用,启用网卡

理解Delphi中sender用法

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...