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

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