UC知道Delphi文件读写例子while not eof(F1)do
来源：百度知道 编辑：UC知道 时间：2024/07/02 11:34:44
program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils;
const
FileName1='c:\test1.txt';
FileName2='c:\test2.txt';
var
F1,F2:TextFile;
S:string;
begin
AssignFile(F1,FileName1);
AssignFile(F2,FileName2);
Rewrite(F2);
Writeln(F2,'Hello');
while not eof(F1)do
begin
Readln(F1,S);
Writeln(F2,S);
end;
CloseFile(F1);
CloseFile(F2);
end.
while not eof(F1)do错在哪里？
{$APPTYPE CONSOLE}
uses
SysUtils;
const
FileName1='c:\test1.txt';
FileName2='c:\test2.txt';
var
F1,F2:TextFile;
S:string;
begin
AssignFile(F1,FileName1);
AssignFile(F2,FileName2);
Rewrite(F2);
Writeln(F2,'Hello');
while not eof(F1)do
begin
Readln(F1,S);
Writeln(F2,S);
end;
CloseFile(F1);
CloseFile(F2);
end.
while not eof(F1)do错在哪里？
这个没错.
你assignFile了F1,却没有指定它是打开 还是创建.你看你的F2都 rewrite了的.而F1却没有,
所以你需要在while not eof(F1)do前面 加上reset(F1);
就好了