·设置正文文件缓冲区

　　Pascal的System单元提供了一个过程SetTextBuf，它可以对一个正文文件设置一个输入输出缓冲区，以提高文件输入输出操作的速度。它的定义如下：
　　procedure SetTextBuf(var F:Text;var Buf[;Size:Word]);

　　注意，不要对已打开的正文文件使用此过程，否则可能会遗失数据。

·例子

　　下面是设置正文文件缓冲区的例子：

var
　Buf:array[0..4095] of Byte;{此处可以是任何类型，空间越大，文件读取速度越快}
　F:Text;

begin
　Assign(F,'Text.txt');
　SetTextBuf(F,Buf,SizeOf(Buf));
　Reset(F);
　...{这里可以对正文文件F进行读写操作。}
　Close(F);
end.