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 按esc快捷键退出程序的简单方法

Delphi listview基本用法大全

Delphi 2010 unicode

Delphi 获取文件所在路径

Delphi 7 + gdiplus 简单实现双缓冲绘制移动图形

Delphi在richedit控件中插入gif动画表情

Delphi 数据库char varchar nvarchar区别

Delphi 将图片压缩后转base64函数

Delphi 安卓app的https访问权限

Delphi 检测cpu内核数

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

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