首页 > OOP语言 > Delphi > 正文

delphi的记录型文件类型
2013-12-12 00:00:00   来源:www.bianceng.cn   评论:0 点击:

暂时无描述信息

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

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

相关热词搜索:

上一篇:delphi用数据库记录账号的登陆功能
下一篇:Delphi中使用链式代码

分享到: 收藏