使用"类型文件"(typed File)，创建自己的"数据库"

from :http://delphi.about.com/od/fileio/a/fileof_delphi.htm

如果有一个应用想在硬盘上存储一定的信息，而又不想使用paradox等数据库文件，而且不想用textfile等易让其他人读取的文件进行存储，那怎么办？Delphi可以提供typed files 让你解决这个问题。

一、有关files：Delphi里提供了三种类型的Files，分别是typed / text /untyped。

typed可以存储一些有结构的文件，如integer/double/record等。

text可以存储ASCII字符。并以CR/LF (#13#10)为行结束。

untyped可以存储"least impossible"的结构类型信息。

二、使用typed File.

type
  TMember = record
    Name : string[50];
    eMail : string[30];
    Posts : LongInt;
end;

var Members : array[1..50] of TMember; 
var
  F : file of TMember;

向文件中写数据：

var
  F : file of TMember;
  i : integer;
begin
 AssignFile(F,'members.dat') ;
 Rewrite(F) ;
 try
  for j:= 1 to 50 do
   Write (F, Members[j]) ;
 finally
  CloseFile(F) ;
 end;
end; 

读为数据：

var
  Member: TMember
  F : file of TMember;
begin
 AssignFile(F,'members.dat') ;
 Reset(F) ;
 try
  while not Eof(F) do begin
   Read (F, Member) ;
   {DoSomethingWithMember;}
  end;
 finally
  CloseFile(F) ;
 end;
end; 

定位至某一记录：

{go back to the beginning - the first record}
Seek(F, 0) ;

{go to the 5-th record}
Seek(F, 5) ;

{Jump to the end - "after" the last record}
Seek(F, FileSize(F)) ; 

更新数据：

procedure ChangeEMail(const RecN : integer; const NewEMail : string) ;
var DummyMember : TMember;
begin
 {assign, open, exception handling block}
 Seek(F, RecN) ;
 Read(F, DummyMember) ;
 DummyMember.Email := NewEMail;
 {read moves to the next record, we have to
 go back to the original record, then write}
 Seek(F, RecN) ;
 Write(F, DummyMember) ;
 {close file}
end;