解决方案 »
- cxDBPivotGrid的控制问题。
- 会的指导一下!!谢谢
- 如何将word文档转g3格式的TIF图片文件?
- 怎么获得系统Internet临时文件夹的地址呢
- ▲◎如何解决从窗体关闭到程序停止,程序运行时间长的问题
- Delphi的Quickrep做了一个DLL,调用preview函数后,程序不动了
- 寻觅-Delphi编程技术内幕
- 如何在系统默认的《撤消|剪切|复制|粘贴|删除|全选》的弹出菜单菜单里增加自己的项目?
- 请问DIP图像格式有人知道吗????
- 请问在Delphi中怎样实现VB中日Doevent功能,即转让控制权,以便让操作系统处理其它的事件。
- 关于字符串函数的很白痴的问题,急,在线等
- 点打印时,为什么出来的是空白面, 想打印panel 上的内容,主要是edit,label 内容
根据自己的数据自己定义类型和数目}
type
PRec=^TRec;
TRec = record
ID,
CStr:string[40];
end;{定义变量fNode,P}
var
fNode:TTreeNode;
P:PRec;{添加节点,并把信息放在节点的Data里面
这里fNode是上一级Node,没有上级就用nil代替
这段代码可以做成循环添加节点}
New(P);
P^.ID:='..';
P^.CStr:='..';
TreeView1.Items.AddObject(fNode,P^.CStr,P);{取值,就是取出前面添加在Data里面的P^.ID和P^.CStr
这里fNode是选中的Node}
P:=PRec(fNode.Data);
大概是这样了,不明白的你自己去找个例子操作一下,多研究研究