文件类型

文件类型是具有相同类型元素的集合，它存储在计算机的磁盘中，与其他数据类型相比，他是一个永久性的大容量数据类型。文件可分为文本文件和二进制文件。

在Delphi中对文件的I/O操作要通过一个变量（文件变量）来实现，声明文件类型的变量必须有一种数据类型，这种数据类型叫文件类型。

文件类型大致分为三种：

1.文本文件类型-Text

2.文件类型-File

3.用户自定义文件类型

（1）文本文件类型的声明：

type
  文本文件类型名称 = TextFile;

示例：

procedure TForm1.Button7Click(Sender: TObject);
type
  mytextfile = TextFile; //声明文本文件类型
var
  textfile1 : mytextfile;
begin
  try
    CreateDir('.\'); //将文件定位到当前目录
    AssignFile(textfile1,'D:\practice\day2\基本数据类型的使用\textfile1.txt'); //将文件变量与一个外部文件关联起来
    Edit9.Text := GetCurrentDir();       //获取当前读写文件目录
    if FileExists('textfile1.txt') then  //Rewrite()创建文件的同时会清空文件所以先判断
      Append(textfile1)                     //附上原来的内容以免原内容被清空
    else
    begin
       Rewrite(textfile1);                  //创建并打开文件,如果文件未存在则创建，已存在则清空文件内容并打开。
    end;
    Writeln(TextFile1,datetimetostr(now())+memo1.lines.text); //对文件进行写入操作
    CloseFile(textfile1);                //关闭文件，或者说终止文件变量与外部文件的关联。
    showmessage('对文件操作成功');
  except
    showmessage('对文件操作失败');
end;
end;

 

对文件操作大致分为五步（必要五步）：

文件类型--对文本文件的创建写入（对文件操作一定要进行异常处理）
1.声明文本文件 type mytextfile = textfile; var textfile1:mytextfile;
2.assignfile 将文件变量与一个文件关联
3.rewrite 创建并打开文件
4.writeln 对文件进行写入操作
5.closefile 关闭文件

 删除一个外部文件：

AssignFile(MyFile,'d:\dd.txt');
Erase(MyFile);  //文件必须关闭状态才可以删除它

 

（2）文件类型声明：

1 type
2   文件类型名称 = File of 基类型；

例如：

type
  {文件类型名称：可以是任何合法的标识符。
  File of:保留字，用于指明当前定义的数据类型为文件类型。
  基类型：决定文件中允许存放的数据类型
  integer： 基类型，它代表存入文件中的数据为整型数据类型}
  TMyFile = file of Integer;

（3）用户自定义文件类型再磁盘上的存储格式为二进制格式。

对于文件操作的其他函数：

参考：https://www.cnblogs.com/findumars/p/7147706.html

　　    https://www.cnblogs.com/rogge7/p/4950224.html