一.记录型文件类型文件:
1)可以粗略地理解为数据库,如本地qq程序的中把的一些账号信息集合(账号 ,密码,上次登录时间等 等组成的集合)记录在.dat文件中。
2)记录型文件类型文件VS数据库
相同点:都可以用来记录数据
区别:记录型文件类型文件类似记事本记录数据,导致对数据的填删改 查没有数据库那么方便。
3)delphi记录型文件的定义
第一步:
定义一个记录集
type
MyFile= Record
name :String[20]; //记录集中一定要对字符串指定大小
sex :String[10]; //同上
age :Integer;
end; //结束
第二部:
声明一个记录集文件,同时申明一个记录集
myselfFile :File of MyFile; //申明记 录集文件
mySelfInfo :MyFile; //申明记录集
第三部:
对记录集赋值与记录集文件赋值
//对记录集赋值
mySelfInfo.name := Edit1.Text;
mySelfInfo.sex := Edit2.Text;
mySelfInfo.age := StrToInt(Edit3.Text);
//下面对记录集文件赋值
if SaveDialog1.Execute then
begin
AssignFile(myselfFile, SaveDialog1.FileName); //将记录集与磁盘文件挂钩,
//写了此句马上写 CloseFile(myselfFile);
if FileExists(SaveDialog1.FileName)then //判断文件是否存在
Reset (myselfFile) //存在则以只读的形式打开;只写(Rewrite)的方式会先删除原来的文件,再新建 文件
else Rewrite(myselfFile); //不存在则以只写的方式打开;
//此时上两种方式,文件 (myselfFile)指针指向文件内容的0位子
Seek(myselfFile, FileSize(myselfFile)); //此 句将指针指向文件末尾。
Write(myselfFile, mySelfInfo); //将记录集写入文件。读取用read (myselfFile, mySelfInfo);
CloseFile(myselfFile); //关闭与磁盘关联,与AssignFile对应
end;
第四步:最后
假设写入以下记录组
控件: Edit1.Text Edit2.Text Edit2.text
信息: 张某某 男 21
周某某 女 21
项 某某 男 21
孟某某 女 21
郑某某 男 21
王某某 男 21
以文本方式打开后文件内容为(注:&表示乱码)
张某某 男 & 周某某 女 & 项某某 男 & 孟某某 女 & 郑某某 男 & 王某某 男 &
注意:只有在上面用 read(myselfFile, mySelfInfo)数据能在软件中被正常读取。
总结:纪录集就好比java中的类。写入 也有点像java。学习delphi,没事可以陶冶陶冶
出处 http://7071976.blog.51cto.com/7061976/1208387