delphi中TreeView使用常见问题
编程心得
1,在Delphi中,TreeView控件是一款很出色而且很常用的控件。
在使用过程中,了解到其TTreeNode对象的data属性存储相关数据很有用,一般情况下,我们先声明一个结构体以及其指针,例如:
type
PMyRc = ^TMyRc;
TMyRc = Record
id:string;
name:string;
age:integer;
end;
添加一个节点,显示信息为TMyRc的name,同时存储id,age。方法如下:
var
p:PMyRc;
i:integer;
begin
Randomize;
for i:= 0 to 9 do
begin
New(p);
p.id:=inttostr(random(100));
p.name:='name'+ inttostr(random(205));
p.age:=random(90);
// Caption := p.id+' '+P.name + ' '+inttostr(p.age);
TreeView1.Items.AddObject(nil,p.name,Tobject(p));
//dispose(p); 如果在这里释放指针,id,age并不能存在树中,而是在这里就被释放了。应该在释放树的事件里书写。
end;
end;
释放树的事件deletion, 即使是删除也会执行这些代码。所以不用担心内存泄漏。但是如果不书写以下代码,或者用相关的方式释放内存,必定会造成内存泄漏。
procedure TForm1.TreeView1Deletion(Sender: TObject; Node: TTreeNode);
begin
dispose(pmyrc(node.data));
end;
访问某个树枝中的age值:
Pmyrc(TreeView1.Selected.data)^.age
转载于:https://www.cnblogs.com/duhai_lee/archive/2005/03/29/127809.html
- 点赞
- 收藏
- 分享
- 文章举报
- 用delphi写下载程序
- delphi技巧--分离汉字和英文字母
- delphi中var关键字
- Delphi和C++ Builder中的Hibernate开发(一)
- Delphi和C++ Builder中的Hibernate开发(六)
- 关于C#下写的Web Service 服务在Delphi下调用时的问题
- 简单工厂之Delphi实现
- Delphi 对对碰外挂 记录
- delphi TWebBrowser 详细解释
- 禁止 Delphi2010 检测新版本
- delphi TDbGrid 右键 P 4000 opupMenu 菜单只在有数据的地方弹出
- (转载)delphi文件流
- (转载)delphi实例TDBGrid用右键菜单复制行粘贴行
- (转载)delphi 把图片存入数据库
- (转载)Delphi StringGrid常用属性和常用操作
- (转载)EhLib 在 Delphi 7 下的安装方法
- (转载)Delphi TStringList的用法
- Microsoft Agent技术在Delphi中的应用
- delphi 7.0生成的AgentObjects_TLB.pas出错导至Ms Agent不能发声
- Delphi XLgrid 动态创建下拉框列