1

所以,我面临着这个任务。我编写了代码,但不知何故,它没有将文件内容放入另一个文件 2,而是简单地删除了文件 2 的内容。我究竟做错了什么?

Program Lesson9_Program2;
Var FName, Fname2, Txt, Txt2 : String;
    UserFile, UserFile2   : Text; 
Begin
 FName := 'Textfile';
 Assign(UserFile,'E:\text.txt'); {assign a text file} 
 Assign(UserFile2,'E:\text2.txt');

 Reset(UserFile);
 Reset(UserFile2);
 readln(UserFile2, Txt);
 readln(UserFile, Txt2);

 Close(UserFile2);
 Close(UserFile);

 Rewrite(UserFile);

 WriteLn(UserFile, Txt);
 WriteLn(UserFIle, Txt2);

 Close(UserFile);


 Rewrite(UserFile);
End. 
4

1 回答 1

1

所以问题出在最后一个重写函数中。原来,它是为了擦除文件内容,所以删除它修复了我的程序

于 2014-05-03T12:16:17.873 回答