Delphi文件读写例子while not eof(F1)do

Posted 2023-05-18

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错在哪里？

参考技术A 这个没错.
你assignFile了F1,却没有指定它是打开 还是创建.你看你的F2都 rewrite了的.而F1却没有,
所以你需要在while not eof(F1)do前面 加上reset(F1);
就好了

Unexpected EOF in archive 或者 rmtlseek not stopped at a record boundary

 

 

 

多半都是文件在传输、复制的时候，发生了损坏；

尽量cp不要用mv

其次，注意文件的大小；