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应用程序 paramstr（）带有参数

Delphi 让程序只运行1次

Delphi 主窗体最小化时不显示在任务栏

Delphi ascii 码对照表

Delphi中获取guid的函数

Delphi 中判断一个字符是中文的方法

Delphi编解码js字符串

Delphi 锁定鼠标移动范围

Delphi 删除internet临时文件

Delphi 最全_日期格式_dateutils时间单元说明

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

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