将文件内容写入另一个文件

Question

所以，我已经面临这个任务了。我编写了代码，但不管怎么说，它不是将文件内容放到另一个文件2中，而是简单地删除了file2的内容。我做错了什么？

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. 

Answer 1

所以问题出在最后的Rewrite功能中。原来，它删除了文件内容，所以删除它修复了我的程序