·预定义标准正文文件变量
Turbo Pascal的System单元提供了两个预定义标准正文文件变量:Input和Output。这两个文件变量在程序开始运行时自动打开,指向键盘输入设备和视频输出设备,并在程序结束时自动关闭。Input是对应键盘的只读文件,Output是对应视频显示器的只写文件。这两个文件使用得十分频繁,因此,当用它们进行读、写操作时,一般省写文件名。如: Write(Ch) 等价于 Write(Output,Ch)
Read(A,B,C) 等价于 Read(Input,A,B,C)
WriteLn 等价于 WriteLn(Output)
ReadLn 等价于 ReadLn(Input)
Eof 等价于 Eof(Input)
Eoln 等价于 Eoln(Input)
ReadLn 等价于 ReadLn(Input,X)
WriteLn(Sqrt(X):10:5) 等价于 WriteLn(Output,Sqrt(X):10:5) 此外,当在正文文件中使用ReadLn过程时,TurboPascal将回车符(#13或^M)视作行结束标志,#26或^Z视作文件结束标志。当在正文文件中使用WriteLn过程时,Turbo Pascal所输送的行结束标志是回车符/行进符序列(#13#10或^M^J)。
·设置默认输入输出文件
可以编写下面的子程序来设置默认输入输出文件:
procedure SetIOFiles(const InputPath,OutputPath:string);
begin
Close(Input);
Assign(Input,InputPath);
Reset(Input);
Close(Output);
Assign(Output,OutputPath);
Rewrite(Output);
end;
例如,若要设置输入和输出文件分别为“Input.txt”和“Output.txt”,则可以调用子程序SetIOFiles('Input.txt','Output.txt')。接着在文件输入和输出时都不再需要写上文件名。若要恢复为键盘输入和视频显示器输出,可以调用SetIOFiles('','')或SetIOFiles('con','con')。
如果设置默认输入输出文件的缓冲区,将会提高读写操作的速度,收到更好的效果。