写入部分?
下面是一个简单的控制台应用程序,然后生成十组 3 个随机数,并将它们打印到控制台窗口和文本文件"Output.txt"。
program Project1;
{$APPTYPE CONSOLE}
{$R *.res}
uses
System.SysUtils;
var
outputFile: TextFile;
i: Integer;
a,b,c: Single;
begin
try
Randomize;
AssignFile(outputFile, 'Output.txt');
ReWrite(outputFile);
for i := 0 to 9 do
begin
a := Random;
b := Random;
c := Random;
WriteLn(FloatToStr(a) + Char(9) + FloatToStr(b) + Char(9) + FloatToStr(c));
WriteLn(outputFile, FloatToStr(a) + Char(9) + FloatToStr(b) + Char(9) + FloatToStr(c));
end;
Close(outputFile);
Sleep(10000);
except
on E: Exception do
Writeln(E.ClassName, ': ', E.Message);
end;
end.
仅当我包含第 26 行时,文本文件才包含与控制台窗口相同的信息:
关闭(输出文件);
如果我从代码中省略这一点,我希望无论如何都会将相同的数据打印到文本文件中,但文本文件中实际打印的内容对于前 9 行和不完整的最后一行是相同的。
为什么会这样?由于省略了关闭程序,最后一行仅通过什么过程
这是因为文件输出被缓冲。关闭文件时,会导致刷新缓冲区并将剩余内容输出到磁盘。
另一种方法是在文件WriteLn
后执行Flush(outputFile)
,它将完成相同的操作,但以牺牲性能为代价。