程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> 更多編程語言 >> Delphi >> delphi的記錄型文件類型

delphi的記錄型文件類型

編輯:Delphi

一.記錄型文件類型文件:

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

  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved