将文本文件f复制到文本文件g中的问题

来源：百度知道 编辑：UC知道 时间：2024/06/05 19:46:00
请帮忙看以下下图的问题究竟是什么
其中input.txt中有内容，output.txt为空文件，两者存储在FPC目录下和2.0.4目录下都有存储（原FPC目录下只有2.0.4文件夹）。

这个写法会导致被复制的文件已经结尾，但程序仍试图读取字符。
把里面那个While循环删掉，并把它的循环体移到外面这个循环中。
再把那个readln(f); writeln(f);删掉，程序就正常了。

//修改后的程序

program p9_2;
var
f,g:text;
ch:char;
begin
assign(f,'input.txt');
assign(g,'output.txt');
reset(f); rewrite(g);
while not eof(f) do
begin
read(f,ch);
write(g,ch);
end;
close(f); close(g);
end.