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

时间:2022-07-30 11:35:35
【文件属性】:

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

文件大小:7KB

文件格式:RAR

更新时间:2022-07-30 11:35:35

Delphi源码-文件操作

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);    BlockWrite(ToF,Buf,NumRead,NumWritten);   until (NumRead = 0) or (NumWritten <> NumRead);   CloseFile(FormF);   CloseFile(ToF);   ShowMessage('文件复制完成!');


【文件预览】:
codesc.net
----FileCopy()
--------FileCopy.res(876B)
--------copy1.dcu(6KB)
--------FileCopy.dpr(188B)
--------copy1.pas(2KB)
--------FileCopy.cfg(434B)
--------copy1.dfm(2KB)
--------FileCopy.dof(2KB)

网友评论