一.记录型文件类型文件：

   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，没事可以陶冶陶冶j_0026.gif