Delphi中利用File Of Type创建并维护类数据库型二进制记录文档

话不多说，直接上代码：

 //定义存储数据结构
type
  TStudent = record
    ID:      Integer;
    Age:     Integer;
    Name:    string[10];
    Email:   string[50];
    Sex:     string[5];
    Address: string[100];
  end;

const sFile ='student.stu';  //存储文件名


var
  Form1: TForm1;
  stu: TStudent;

implementation

{$R *.dfm}



//初始化生成10条记录并以二进制写入文件保存
procedure TForm1.btnInitDataClick(Sender: TObject);
var
  F: file of TStudent;    //file of type type必须是固定大小的，不能是对象, String, Variant等
  Students: array[1..10] of TStudent;
  i: Integer;
begin
  try
    AssignFile(F, sFile);
    //Rewrite(文件变量名);若无该文件，则创建文件，若有该文件，覆盖掉原文件。
    Rewrite(F);
    Randomize;//初始化随机种子,生成随机年龄
    for i := 1 to 10  do
    begin
      Students[i].ID := 100+i;
      Students[i].Age := random(15)+10;   //随机10-25以内的数字
      Students[i].Name := 'Name' + IntToStr(i);
      Students[i].Email := 'Email