记录文件的定义
首先我们需要明确的是记录文件读取有什么优点？
- 方便高效，自定义记录的数据类型，能够自己快速的读取。
1）定义记录类型：
type TStudent = record {定义记录Student} name:string[6]; //存放文件型记录类型要限定大小。 category:string[6]; nums:string[9]; clas:string[14]; grades:string[6]; end;
2）定义记录文件类型的变量
var //记录文件类型变量名：记录文件类型; FStudent:File of TStudent;
记录型文件的打开和关闭
和文本文件一样，AssignFile标准过程用来关联记录文件变量与实际的磁盘文件。
Reset和ReWrite过程用来打开记录文件，CloseFile过程用来关闭记录文件。
注意：
Append过程是用来打开文本文件的。
Reset打开记录文件的属性是读或写。
ReWrite是以创建或打开的方式打开。
//首先要在TForm窗体中的FormCreate方法添加代码 var CurDir:string; //CurDir存放是项目的路径 begin GetDir(0,CurDir); //返回这个项目路径，0:默认磁盘，CurDir存放是项目的路径 AssignFile(FStudent,CurDir + '\Class.dat'); //指定路径存放 if(FileExists(CurDir + '\Class.dat')) then //判断是否存在此文件 ReSet(FStudent) else ReWrite(FStudent); end;
GetDir过程
运行程序之后就会可以去项目路径下面找一下是否出现了文件。
当然啦，如果这个时候你点开它，会发现是空的，那是因为我们还没有写数据进去。
在写数据之前，我们需要添加关闭操作OnClose
写入数据
var stus:TStudent; begin stus.name:=edt1.Text; stus.category:=edt2.Text; stus.nums:=edt3.Text; stus.clas:=edt4.Text; stus.grades:=edt5.Text; Write(FStudent,stus); end;
运行之后添加数据之后，打开文件之后可以看到如下：
