第8章 Delphi 70的

件类型语句的格式如下。 [格式]：记录文件类型名= 记录类型名
例如，有下列语句： StudentFile = Student;//定义学生记录
文件类型 该语句定义了一个记录文件类型StudentFile。
8
（3）定义记录文件类型的变量 记录文件类型定义好后，应根据文件类型定义
变量，根据文件类型定义变量的语句格式如下。 [格式]：Var
打开文本文件可分成两个步骤：一是把文件变量与 实际的文本文件关联起来；二是打开相应的文本文件。
（1）关联文本文件变量与文本文件
可通过AssignFile过程来关联文件变量与实际的 磁盘文件，该过程的格式如下。
[格式]：procedure Assign F; : string);
10
例如，有以下语句： var
创建文件——写入数据——关闭文件 （2）读取文件 读写一个已存在的文件，一般要经历以下几个步骤：
读打开文件——读取数据——关闭文件 （3）向一个文件的末尾添加数据 向一个已存在的文件末尾添加数据，一般要经历以下
几个步骤： 添加打开文件——写入数据——关闭文件
3
（4）读文件中某一位置的数据（随机读） 读取已存在文件的某个位置的数据，一般要经历以下几
P2,..., Pn] );
使用Write和Writeln向文本文件中写入数据时，还可 以指域宽和小数位。
13
①指定域宽
要给Write和Writeln输出的数据指定域宽，只需要相应 的数据后增加一个“：”和一个表示域的宽度的数字。 例如，有以下程序段：
var F1, F2: TextFile;//定义两个文本文件变量 N1,N2,N3:Integer;
个步骤： 读打开文件——定位——读取数据——关闭文件 （5）修改文件中某一位置的数据（随机写） 修改已存在文件的某个位置的数据，一般要经历以下几
个步骤： 写打开文件——定位——修改数据——关闭文件
4
3．文件指针
磁盘文件打开后，将会产生一个指针，它 指向下一次要读写的数据位置，该指针称为 “文件指针”。文件指针具有自动移动的功 能，文件刚打开时，文件指针指向磁盘文件 中的第1个数据（记录或文本），当读取了这 个数据后，文件指针自动指向下一个数据。 当把数据写入某个文件时，文件指针总是自 动指向下一次要写入数据的位置。文件指针 随文件的打开而存在，随文件的关闭而消失。
5
8.1.2 Delphi 7.0中的文件类型及文件 类型变量的定义
1．文本文件变量的定义
使用文件前需要定义一个文件型的变量，文本文件 型变量的定义格式如下。 [格式]：Var
文本文件变量名: TextFile;
2．记录型文件变量的定义
记录型文件变量的定义一般要分成三个步骤，下面 以定义一个存放学生数据的记录型文件变量为例来说 明记录型文件变量的定义方法。
Letter;//定义文件型变量 ……
Assign,‘Myletter.txt’);//把文件型变量与文件名联系在 一起
（2）打开文本文件
把磁盘文件与文件型变量关联在一起后，就可以 打开文件了，打开文件可使用Reset、Rewrite或 Append过程中的一个来进行。
①Rewrite过程 [格式]：procedure Rewrite(var F: File [; Recsize: Word ] );
1．文件的分类
（1）文本文件与二进制文件 按文件中的数据格式分，文件可分成“二进制文
件”和“文本文件”； （2）顺序文件与随机文件
按读写方式来分类，文件可分成“顺序文件”和 “随机文件”
2
2．使用磁盘文件的步骤
几种常见使用方式的实现步骤。 （1）创建文件 创建一个不存在的文件，一般要经历以下几个步骤：
第8章 Delphi 7.0的文件系统
本章要点： 文件的概念与文件类型 在Delphi 7.0中打开、关闭和读写文本
文件的方法 在Delphi 7.0中打开、关闭和读写记录
文件的方法 与文件有关的函数的使用
1
8.1 循序渐进学理论
8.1.1 文件的基本概念
通常所说的文件是指存放在磁盘上的一组相关信 息的集合，也称磁盘文件。为了区分不同的文件，可 给每个磁盘文件一个标识，称为“磁盘文件名”。
12
例如，有下列语句：
Assign,'Myletter.txt');// 把 文 件 型 变 量 与 文 件 名 联 系在一起
Rewrite(LetterFile);//创建指定的文件
……
Close);//关闭与文件型变量LetterFile联系在一起的 文件
3．文本文件的读写
（1）文本文件的写操作 Write过程的格式如下。 [格式]：procedure Write( [var F: Text; ] P1 [ ,
11
②Append过程 [格式]：procedure Append(var F: Text); ③Reset过程 [格式]：procedure Reset(var F [: File; RecSize: Word ] );
2．文本文件的关闭
文本文件使用过后要关闭，关闭文件使用CloseFile 过程，该过程的格式如下： [格式]：procedure Close F);
6
（1）定义记录类型
定义一个学生记录类型，如下：
type
Student= record
//定义通信录记录型
No:String[10];
Name: string[10];
Age:integer;
Sex:String[2];
Class:string[30];
end;
7
（2）定义记录文件类型 根据记录类型定义记录文件类型，定义记录文
记录文件类型变量名:记录文件类型; 例如，有下列语句： var VFStudent:StudentFile; //定义文件类型变量
该语句定义了一个记录文件类型变量VFStudent， 该变量可以用来与一个记录文件相联系，相应文件中 只能存放Student记录型的数据。
9
8.1.3 文本文件的使用
பைடு நூலகம்1．文本文件的打开
…… S:='C:\A1.TXT' ;//取得源文件名 N1:=100;N2:=200;N3:=300; Assign, S); //把源文件名和F1文件型变量联系在