文件名称：Delphi 用内存块复制文件.rar
文件大小：7KB
文件格式：RAR
更新时间：2022-07-30 12:46:11
Delphi源码-系统相关
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 (NumWritten<>NumRead); CloseFile(F1); CloseFile(F2); showmessage('文件复制成功。'); except CloseFile(F1); CloseFile(F2); showmessage('文件复制失败。'); end;
【文件预览】：
codesc.net
----用内存块复制文件()
--------Project1.res(876B)
--------Unit1.dfm(1KB)
--------Unit1.ddp(51B)
--------Project1.cfg(434B)
--------Unit1.pas(2KB)
--------Project1.dpr(188B)
--------Project1.dof(2KB)
--------Unit1.dcu(6KB)