如何处理大文件的COPY问题！

Question

如题，我要将一个1G以上的TXT文件内容COPY到另外一个TXT文件中，如何处理可以更快！我尝试用READ、WRITE的方式实现，但是希望处理的效率更高，也试过用内存映射的方式打开源文件，但是1G以上的文件程序就报错，各位帮帮忙，看怎么处理！

Answer 1

function tAddFirstAttribForm.filemoveorcopy(oldfilename:string;copy:boolean):string;
var
  newfilename:string;
begin
 newfilename:=ExtractFilePath(Application.Exename)+linkDir+ExtractFileName(oldfilename);
 if CopyFile(LPCTSTR(oldfilename),LPCTSTR(newfilename),False) then
  begin
   if copy =false then
     begin
       deletefile(oldfilename);
       ShowMessage('移动完毕！');
     end else
     showmessage('复制完毕！');
 end else
    showMessage('复制失败！');
end;自己参考

Answer 2

忘记强调，我不是简单的两个文件copy，而是两个文件都有内容，1g的文件内容是接在另一个文件内容后面copy进去的，这样应该怎么处理