利用Delphi的File Of Type创建并管理属于你自己的数据库
http://www.360doc.com/content/16/1128/19/28222077_610249962.shtml
利用Delphi的File Of Type创建并管理属于你自己的数据库
前言 在程序中,我们需要用一个途径去把一些有规律的信息存储在磁盘上。不能用TXT格式的文件──因为它不是基于“记录”的,而且管理很不方便。 首先 我们首先要定义一个基类,也就是一个记录结构: type 然后声明一个记录集,假设有5条记录: 写入到文件 假设我们已经填充了Members里的5条记录。那么,接下来就是把这5条记录写入磁盘文件的代码: 从磁盘文件读出所有记录 var Seeking and Positioning 文件记录通常是要不断更新的。在一般情况下,我们读写一条记录后,游标立即指向下一条记录。我们可以用下面的方法实现在记录间自由移动游标: { 回到文件头,即第1条记录 } { 跳到第3条记录 } { 跳到文件尾,即最后一条记录的后面 } 记录的更新 前面我们仅仅学习了如何读写记录。那么如果我们要求找到第10条记录,然后把这条记录的某个字段(如:Email)修改一下,怎么做?请看下面的代码: procedure ChangeEMail(const RecN : integer; const NewEMail : string) ; 结束语 附:一个完整的例子代码 (译者注:这个完整的例子代码是由译者附加的,在Delphi6 + Windows2000上编译通过。因时间紧,没有写“添加”“删除”一条记录的代码。基于本文及本例,读者完全可以写一个控件,完成象BDE、ADO那样的功能。) unit Unt_Main; interface uses type var implementation {$R *.dfm} type const procedure MembersInit; function SeekRec(RecNo : integer; var aMember : TMember):boolean; function UpdateRec(RecNo : integer; var aMember : TMember):boolean; procedure TFrm_Main.Btn_FillDemoDataClick(Sender: TObject); procedure TFrm_Main.Btn_ReadAllClick(Sender: TObject); procedure TFrm_Main.Btn_GoFirstClick(Sender: TObject); procedure TFrm_Main.Btn_Go4thClick(Sender: TObject); procedure TFrm_Main.Btn_GoLastRecordClick(Sender: TObject); procedure TFrm_Main.Btn_NextClick(Sender: TObject); procedure TFrm_Main.Btn_PreviousClick(Sender: TObject); procedure TFrm_Main.Btn_ReWriteNowRecClick(Sender: TObject); end. |
转载于:https://www.cnblogs.com/delphi-xe5/p/6110840.html
利用Delphi的File Of Type创建并管理属于你自己的数据库相关推荐
- 【T-SQL】一、数据库的创建与管理
一.数据库的创建与管理 文章目录 一.数据库的创建与管理 (一)创建数据库 完整语法格式 选项说明与设置 例题:图书馆管理数据库 例题:学生管理数据库 (二)查看数据库 数据库基本信息 查看数据库信息 ...
- 数据库原理及应用——熟悉数据库管理工具、数据库和表的创建与管理
实验一 熟悉数据库管理工具.数据库和表的创建与管理 一.实验目的: 了解SQL Server或MYSQL数据库的基本知识: 熟悉SQL Server或MYSQL环境和系统结构: 掌握图形化交互工具的基 ...
- python 全栈开发,Day116(可迭代对象,type创建动态类,偏函数,面向对象的封装,获取外键数据,组合搜索,领域驱动设计(DDD))...
昨日内容回顾 1. 三个类 ChangeList,封装列表页面需要的所有数据.StarkConfig,生成URL和视图对应关系 + 默认配置 AdminSite,用于保存 数据库类 和 处理该类的对象 ...
- 利用java.io.File类实现遍历本地磁盘上指定盘符或文件夹的所有的文件
2016-11-18 这是本人的第一篇随笔博客,纠结了半天还是选择自己学的时候比较用心的一些知识点上.利用java.io.File类指定本地的文件夹进行遍历所有的文件. package org.lxm ...
- javax.annotation.processing.FilerException: Attempt to recreate a file for type
重写AbstractProcessor 使用注解重写文件时报错 原因是createSourceFile时 会记录每次创建的文件名 并记录在Set<String> aggregateGene ...
- python 元类 type_Python 使用元类type创建类对象常见应用详解
本文实例讲述了Python 使用元类type创建类对象.分享给大家供大家参考,具体如下: type("123") 可以查看变量的类型;同时 type("类名", ...
- File类的创建功能
package com.day16.File; /* * 创建功能: * public boolean createNewFile():创建文件,若存在这样的文件就不创建了 * public bool ...
- Python type创建类
静态创建类(普通写法) 下面是创建类的常见写法: class ObjectCreator(object):pass my_object = ObjectCreator() print(my_objec ...
- 利用Delphi编写Socket通信程序
一.Delphi与Socket计算机网络是由一系列网络通信协议组成的,其中的核心协议是传输层的TCP/IP和UDP协议.TCP是面向连接的,通信双方保持一条通路,好比目前的电话线,使用telnet登陆 ...
最新文章
- 清华校友陈怡然、杨越组队进军AI芯片市场,成立苹芯科技,最新Pre-A轮斩获近千万美元...
- android获取所有的子进程,Android M:如何获取所有进程UID?
- [CF960F]Pathwalks
- 【opencv】7. cv::VideoWriter的使用,把图片写进video
- Unity3D 入门 游戏开发 Unity3D portal game development
- ASP.NET Core开发-使用Nancy框架
- 期望+DP ZOJ 3929 Deque and Balls
- 不止代码:循环比赛(分治)
- 关于opencv读取摄像头的未解之谜
- 世界手机号码格式_世界上手机号码最长的国家是中国,最短的是哪个国家?
- CSS cursor 和 opacity 属性
- php面试题9(看的时候就应该随手截图做笔记的)
- bzoj 1009: [HNOI2008]GT考试(dp+kmp+矩阵快速幂)
- Code Chef - Chef and Graph Queries
- php lwm2m,理解COAP/LWM2M/MQTT协议和TCP/UDP协议的关系
- linux 下的 C语言编程学习(1)
- linux 中文转unicode,Linux下汉字编码的转换
- 【Css/Html】网页Css默认设计样式载入模板代码body.css
- Origin的基础实验数据处理
- 喜茶门店总数超过650家,深圳单城市突破100家店
热门文章
- Python生成器主要用法
- 简单排列习题2.5 的 2 - 6 P35
- (转)json-lib 的maven dependency
- WinForm中异步加载数据并使用进度条
- UNIX网络编程——客户/服务器程序设计示范(一)
- C# 采用系统委托的方式处理线程内操作窗体控件(转载)
- 5 加盐_工业软水处理器定期加盐的标准
- linux存储--页面置换算法(十一)
- 清华大学计算机系人机交互,喻 纯 - 清华大学 - 《自然人机交互中的智能输入》(47页)-原创力文档...
- 【正则表达式】1.入门