在Delphi中的TreeView中保存多个数据
来源:互联网 发布:双程网络剧 编辑:程序博客网 时间:2024/05/22 09:40
type
PMyRec = ^TMyRec;
TMyRec = record
FName: string;
LName: string;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
MyRecPtr: PMyRec;
TreeViewIndex: LongInt;
begin
New(MyRecPtr);
MyRecPtr^.FName := Edit1.Text;
MyRecPtr^.LName := Edit2.Text;
TreeViewIndex := StrToInt(Edit3.Text);
with TreeView1 do
begin
if Items.Count = 0 then
Items.AddObject(nil, 'Item' + IntToStr(TreeViewIndex), MyRecPtr)
else if (TreeViewIndex < Items.Count) and (TreeViewIndex >= 0) then
Items.AddObject(Items[TreeViewIndex], 'Item' + IntToStr(TreeViewIndex), MyRecPtr);
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Label1.Caption := PMyRec(TreeView1.Selected.Data)^.FName + ' ' +
PMyRec(TreeView1.Selected.Data)^.LName;
end;
- 在Delphi中的TreeView中保存多个数据
- Delphi中的TreeView
- 在数据库中保存数据
- 如何在Android应用程序中保存数据
- 在 SQL 数据库中保存数据
- Android 在 SQL 数据库中保存数据
- delphi在TreeView 里加复选框
- Android - 数据存储 -在SQL数据库中保存数据
- Delphi 从数据库中读取数据给TreeView赋值,然后从TreeView结点中读取数据
- PHP中在数据库中保存Checkbox数据(1)
- Android Developers:在SQL数据库中保存数据
- 使用多维数组在游戏中保存归类数据
- 如何在安卓应用程序中保存数据
- 使用json格式在localstorage中保存数据
- 如何在SQLite数据库中保存image数据
- 多个datawindow在同一个事物中保存数据
- 如何在安卓应用程序中保存数据
- Kafka在Zookeeper中保存数据的结构
- 在线编辑word文档代码
- 使用GPO(Profile-Guided Optimization)优化程序
- 在线编辑word文档 可保存到服务器
- 解说Win32的窗口子类化
- Linux command: sudo, df,du
- 在Delphi中的TreeView中保存多个数据
- C#Using用法
- “QQ尾巴病毒”核心技术的实现
- 捕获参数错误异常
- 理论指导实践啊~~~~
- 大数据库的精确及模糊查询问题
- 使用kgdb调试linux内核及内核模块
- CICS和DB2连接的简单介绍
- MySQL优化之COUNT(*)效率