首页 / 软件开发 / Delphi / delphi的记录型文件类型

delphi的记录型文件类型2013-12-12 lilin9105 一.记录型文件类型文件：

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