一、保存记录类型在data指针中:

procedure TForm1.getheaditems(pp:TfrxBand;hnode:THeadTreeNode;var i:Integer;var j:Integer;var zh,tmph:Integer;var tree:TTreeView);
type
Trec=record
     text:string;
     left,top,width,height:Integer;
     end;
 TPRec = ^TRec;
var
  h,lh,w,tp,lt,m,firstp:Integer;
  ht:THeadTreeNode;
  currentnode,pnode:TTreeNode;
  hh,ss,firsttext:string;
  ntrec:TPrec;
begin
  firsttext:=hnode.Text;
  ht:=hnode;
  m:=0;
  while True do
  begin
   w:=ht.Width;
   New(ntrec);
   if w>0 then
   begin
      hh:=ht.Text;
      lh:=ht.GetLevel;
      h:=ht.Height;
      if lh=1 then
         i:=0;
      //ss:='left:'+inttostr(j)+',top:'+inttostr(i)+',h:'+inttostr(h)+',w:'+inttostr(w)+',text:'+hh+',level:'+inttostr(lh);
      //Memo1.Lines.Add(ss);
      //build tree
      if lh=1 then
         currentnode:=tree.Items.Add(nil,hh)
      else
      begin
         pnode:=findtreeitem(tree,ht.Host.Text);
         currentnode:=tree.Items.AddChild(pnode,hh);
      end;
      ntrec^.text:=hh;
      ntrec^.Top:=i;
      ntrec^.Left:=j;
      ntrec^.Width:=w;
      ntrec^.Height:=h;
      currentnode.Data:=ntrec;//CreateMemoFun(pp,hh,'leftcolumns',baNone,nil,'',j, i, w, h);
      //ntrec:=TPRec(currentnode.Data);
      with ntrec^ do
      begin
           ss:='nodename:'+hh+',left:'+inttostr(left)+',top:'+inttostr(top)+',width:'+inttostr(width)+',height:'+inttostr(Height)+',level:'+inttostr(lh);
      end;
      Memo1.Lines.Add(ss);
      if m=0 then
         firstp:=i
      else
         i:=firstp;
   end else   //跳过不可见列
      w:=0;

if Assigned(ht.Child) then
    begin
       //tmph:=i;
       i:=i+h;
       getheaditems(pp,ht.Child,i,j,zh,tmph,tree);
    end else
    begin
        j:=j+w;
        zh:=i+h;
        //i:=tmph;
    end;
    ht:=ht.Next;
    m:=m+1;
    if ht.Text=firsttext then
    begin
       Break;
    end;

end;
end;

 
二、消除记录类型:
 
procedure TForm1.Button5Click(Sender: TObject);
type
Trec=record
     text:string;
     left,top,width,height:Integer;
     end;
 TPRec = ^TRec;
var
  tnode,fn:THeadTreeNode;
  level,ss:string;
  i:Integer;
begin
   with TreeView1 do
   begin
      for I := 0 to Items.Count-1 do
      begin
        level:=IntToStr(items[i].Level);
        if assigned(TPRec(items[i].Data)) then
        begin
           dispose(TPRec(items[i].Data));
           Memo1.Lines.Add('已释放指针:'+items[i].Text);
        end;
        ss:='nodename:'+items[i].Text+',level:'+level+',sn:'+inttostr(i);
        Memo1.Lines.Add(ss);
      end;
   end;
end;

在Treeview中节点的data属性中保存记录类型及其消除的办法的更多相关文章

  1. 006——VUE中的内容与属性中使用javascript表达式的方法

    <!DOCTYPE html> <html lang="en"> <head> <meta charset="UTF-8&quo ...

  2. js中的访问器属性中的getter和setter函数实现数据双向绑定

    嗯,之前在读js红宝书的时候,在对象那一章有介绍属性类型.第一种数据类型指的是数据属性,第二种是访问器属性.在初识vue的时候,其双向数据绑定也是基于访问器属性中的getter和setter函数原理来 ...

  3. IE8中li添加float属性,中英数字混合BUG

    <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/ ...

  4. 视图中 jquery 使用data属性

    示例:<input id='username' data-id="{$val['id']}" data-userName="{$val['name']}" ...

  5. jsp <form>表单提交中如何在value属性中写表达式

    <input type="text" name="grop_id" value="<%=rs.getString(2)%>" ...

  6. 多.h项目出现的问题:使用了预编译头依然出现error LNK2005:***obj已在***obj中定义与c++ error C2011: “xxx”:“class”类型重定义解决办法

    使用了预编译头依然出现error LNK2005:***obj已在***obj中定义 造成该问题的可能性比较多,本人将在今后遇到时添加进来,今天先放出本人遇到的一种情况. 多重包含含有变量定义的.h文 ...

  7. PyQt(Python+Qt)入门:Designer组件属性编辑界面中QWidget类相关属性详解

    本文适用人员:本文比较长,适合不理解Qt Designer部件属性的人员阅读或资料查找. 声明: 1.如果有人认为本文是简单的复制粘贴+翻译而成,敬请读本文最后的后记: 2.本文为老猿Python学习 ...

  8. HTML 5:你必须知道的data属性

    原文:All You Need to Know About the HTML5 Data Attribute 译文:你必须知道HTML 5 的Data属性 译者:dwqs HTML 5的Data属性可 ...

  9. html 5实用特性之data属性

    HTML 5之前,我们必须依赖于class和rel属性来存储需要在网站中使用的数据片段,这种做法有时会在网站的外观和实用性之间产生冲突.而HTML 5 Data属性的存在就能很好满足需要. HTML5 ...

随机推荐

  1. cadence allegro pcb模块设计复用

    cadence allegro pcb模块设计复用 转载▼ 标签: 复用 模块 原理图 元件 文件 杂谈 分类: PCB技术 在你遇到如上图所示的dsp阵列PCB时,如果你的layout软件支持模块复 ...

  2. 使用程序修改系统(IE)代理设置

    文章都是发布在github再转到这边的,这边格式可能会乱掉.博客地址:benqy.com 这是本人在做的一个前端开发调试工具(HttpMock),功能是web服务器+http日记+http代理(类似f ...

  3. gulp配置,实例演示

    项目完成后的目录 我们所需要的插件为:gulp-minify-css gulp-concat gulp-uglify gulp-rename del 如下图所示,完成后的项目目录结构: 附加,获取pa ...

  4. [译]GLUT教程 - 整合代码1

    Lighthouse3d.com >> GLUT Tutorial >> Input >> The Code So Far 以下是前面几节的完整整合代码: #inc ...

  5. 篇一、安装配置Android Studio

    系统:Mac 10.10 Java JDK:官方JDK1.8 IDE:Android Studio 1.2 Android SDK:24.2 模拟器:genymtion 安装 Mac版本的Androi ...

  6. ubuntu中文乱码--添加中文字符集

    在Ubuntu支持中文后(方法见上篇文章),默认是UTF-8编码,而Windows中文版默认是GBK编码.为了一致性,通常要把Ubuntu的默认 编码改为GBK.当然你也可以不改,但这会导致我们在两个 ...

  7. UFLDL深度学习笔记 (七)拓扑稀疏编码与矩阵化

    UFLDL深度学习笔记 (七)拓扑稀疏编码与矩阵化 主要思路 前面几篇所讲的都是围绕神经网络展开的,一个标志就是激活函数非线性:在前人的研究中,也存在线性激活函数的稀疏编码,该方法试图直接学习数据的特 ...

  8. POJ2396 Budget 【带下界的最大流】

    Budget Time Limit: 3000MS   Memory Limit: 65536K Total Submissions: 5962   Accepted: 2266   Special ...

  9. python tensorflow 学习

    Tensorflow系列——Saver的用法:http://blog.csdn.net/u011500062/article/details/51728830 Tensorflow学习系列(二): t ...

  10. SVM支持向量机

    支持向量机(Support Vector Machine,SVM)是效果最好的分类算法之中的一个. 一.线性分类器: 一个线性分类器就是要在n维的数据空间中找到一个超平面,通过这个超平面能够把两类数据 ...