Delphi演示通过文件读写的方式复制文件.rar

Delphi演示通过文件读写的方式复制文件，本示例是通过读文件、重新写入文件的方式，来模拟出文件复制的功能，并不是使用Delphi中固有的copyFile函数来直接操作文件，有兴趣可参考以下的代码： 　　AssignFile&#40;ToF,edtTFile.Text&#41;; 　　ReWrite(ToF,1); 　　lbMesg.Caption := lbMesg.Caption IntToStr(FileSize(FormF)) 'bytes已经拷贝完成！'; 　　repeat 　　 BlockRead(FormF,Buf,SizeOf(BUf),NumRead); 　　 BlockWrite(ToF,Buf,NumRead,NumWritten); 　　until (NumRead = 0) or (NumWritten <> NumRead); 　　CloseFile&#40;FormF&#41;; 　　CloseFile&#40;ToF&#41;; 　　ShowMessage('文件复制完成！');