大榕树 \ Pascal语言 \ 算法与技巧

设置正文文件缓冲区

原文链接：http://www.mydrs.org/program/list.asp?id=40

·设置正文文件缓冲区

　　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.

作者：陈世熹
来源：http://xpascal.yeah.net/
时间：2001-06-11

上一篇：实数类型
下一篇：编译模式

大榕树 版权所有 ©1999-2006