文本文件是由若干行组成的，若干个字符串组成一行，一行的结尾由回车换行符表示。如果对文本文件进行操作，则首先应通过调用AssignFile过 程建立文件变量与外部文件的联系，并且使用Reset或ReWrite或Append方法打开。由于文本文件是以行为单位进行读写操作的，并且每一行的长 度不一定相同，所以不能计算出指定行在文件中的准确位置，因此对于文件只能顺序的读写。要对文件进行读写操作，必须相应的对文件进行以读或写的方式打开， 也就是对一个文本文件只能单独进行读或写的操作，而不能同时进行。

1、 以添加方式打开文件(Append)

通过调用函数Append可打开一个已经存在的文件以便在文件末尾添加文本。如果在文件最后的128个字节块中，存在字符〈ctrl〉+〈z〉（ASCII26），那么文件将在字节处插入，并且覆盖该字符。

Append过程的声明如下：
procedure Append(var F:text);

其 中F是一个任意文件类型的变量，并且必须同用AssignFile函数打开的外部文件相联系，如果指定的文件不存在，则会产生错误，如果指定的文件已经打 开，则先关闭再重新打开。当前文件的位置设置在文件末尾。如果分配给F的是一个空名字，则在调用Append函数后，文件变量（F）将同将同标准输出文件 建立联系。

2 、文本文件的读取和写入

文本文件通过调用过程Reset后以只读方式打开后，就可以使用Read或Readln过程来读取文件数据了。文本文件通过调用Write或Writeln过程来打开一文件后就可以使用或过程来写入数据。

(1) 用Read过程读取数据

通过调用Read过程可以从文本文件中读取或数字。其声明如下：
Procedure Read([var F:text;]v1 [,v2,…,vn,]);

其 中F是一个文件变量，v1 ,v2,…,vn用于存储读取的数据，其必须为相同的类型。当v1 ,v2,…,vn定义为字符串型或字符型变量时，则Read过程将按照定义的长度读取字符。当v1 ,v2,…,vn定义为整数或实数变量时，则Read过程将以空格作为分隔符，如果在数字中出现逗号、分号或其他字符将产生异常。

(2) 用Readln过程读取数据

通过调用Readln 过程可以从文本文件中读取字符串、字符或数字，直到一行结束。其声明如下：
Procedure readln([var F:text;]v1 [,v2 ,…]);

其中F是一个文件变量，v1 ,v2,…,vn用于存储读取的数据

(3) 用Write过程写入数据

通过调用Write过程可以向文件中写入数据。其声明如下：
Procedure Write([var F:text;]p1[,p2,…]);

其中F是一个文件变量，p1 ,p2,…,pn用于存储写入的数据

(4) Writeln用过程写入数据

通过调用Writeln过程可以向文件中写入一行数据，并在结尾处输入回车符。声明如下：
Procedure Writeln([var F:text;]P1[,P2,…]):

3、 文件的基本操作

对文本文件进行操作的基本函数与过程见表：

方法                                                                                  说明
Procedure AssignPrn(var F:text);                                       建立文本文件同打印机的联系 
Function Eoln(var F:text):Boolean;                                    检测文件指针是否指向行尾 
Procedure Flush(var F:text);                                             清空以输出方式（ReWite或Append）打开的文件缓冲区，以确保写入的文件字符都被写入外部文件 
Function SeekEof(var F:text): boolean;                             返回文件尾状态 
Function SeekEoln(var F:text):boolean;                             返回文件行尾状态 
Procedure SetTextBuf(var F :text;var buf [;size:integer]);   设置文件缓冲区