Delphi 用内存块复制文件.rar

Delphi用内存块复制文件，测试时请输入源文件及目标文件的路径。 　　try 　　AssignFile(F1,SourceName); 　　Reset(F1,1); 　　AssignFile(F2,DestName); 　　Rewrite(F2,1); 　　repeat 　　BlockRead(F1,buf,sizeof(buf),NumRead); 　　BlockWrite(F2,buf,Numread,NumWritten); 　　until(NumRead=0)or(NumWrittenNumRead)