Delphi文件操作【1】- 记录文件

记录文件的定义

首先我们需要明确的是记录文件读取有什么优点？

• 方便高效，自定义记录的数据类型，能够自己快速的读取。

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;

运行之后添加数据之后，打开文件之后可以看到如下：