Delphi中實現文件拷貝的三種方法

　　2.文件流
　　procedure copyfile;
　　var f1,f2: tfilestream ;
　　begin
　　f1:=Tfilestream.Create(sourcefilename,fmopenread);
　　try
　　f2:=Tfilestream.Create(targetfilename,fmopenwrite or fmcreate);
　　try
　　f2.CopyFrom(f1,f1.size);
　　finally
　　f2.Free;
　　end;
　　finally
　　f1.Free;
　　end;
　　end;

　　3．利用內存塊讀寫buffer實現
　　Procudure FileCopy(const Fromfile,Tofile:string);
　　Var
　　F1,F2:file;
　　NumRead,Numwritten:Word;
　　Buf:array [1..2048] of char;
　　Begin
　　AssignFile(F1,Fromfile);
　　Reset(F1,1);
　　AssignFile(F2,Tofile);
　　Rewrite(F2,1);
　　Repeat
　　BlockRead(F1,buf,sizeof(buf),NumRead);
　　BlockWrite(F2,buf,Numread,NumWritten);
　　Until (NumRead=0) or (NumWritten<>NumRead);
　　CloseFile(F1);
　　CloseFile(F2);
　　End;