delphi BlockRead和BlockWrite读写文件

本文整理自网络，侵删。

 
var   
 FromF, ToF: file;   
 NumRead, NumWritten: Integer;   
 Buf: array[1..2048] of Char;   
begin   
 if OpenDialog1.Execute then begin   
   AssignFile(FromF, OpenDialog1.FileName);   
   Reset(FromF, 1); { Record size = 1 }   
   if SaveDialog1.Execute then { Display Save dialog box}   
   begin   
     AssignFile(ToF, SaveDialog1.FileName); { Open output file }   
     Rewrite(ToF, 1); { Record size = 1 }   
     Canvas.TextOut(10, 10, 'Copying ' + IntToStr(FileSize(FromF))   
+ ' bytes...');   
     repeat   
       BlockRead(FromF, Buf, SizeOf(Buf), NumRead);   
       BlockWrite(ToF, Buf, NumRead, NumWritten);   
    until (NumRead = 0) or (NumWritten <> NumRead);   
    CloseFile(FromF);   
    CloseFile(ToF);   
  end;   
end;   
end;  
 

相关阅读 >>

Delphi 关闭自己,重新运行

Delphi 判断文件存在的一个api函数

Delphi format中的换行符号是什么

Delphi 如何从url提取文件名？

Delphi 防局域网控制网速代码

Delphi idhttp控件断点下载

Delphi 2009 indy10 idhttp get 中文出现乱码的问题

Delphi xe 如何实现("再按一次退出") 然后退出程序

Delphi hide

Delphi meid校验码算法

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi BlockRead和BlockWrite读写文件