请问：如何进行二进制文件的读写

Question

如何进行二进制文件的读写

Answer 1

无类型文件读：
var 
  UnTypedFile: File;
  Buffer: array[0..128] of byte;
  NumRecsRead: Integer;
begin
  AssignFile(UnTypedFile, "file.data");
  Reset(UnTypedFile);
  try
    BlockRead(UnTypedFile, Buffer, 1, NumRecsRead);
  finally
    CloseFile(UnTypedFile);
  end;
end;
无类型文件写：
var
  UnTypedFile: File;
  Buffer: array [0..128] of byte;
  NumRecsWritten: Integer;
begin
  AssignFile(UnTypedFile, 'File1.Dat');
  if FileExists('File1.Dat') then
    Reset(UnTypedFile);
  else Rewrite(UnTypedFile);
  try
    Seek(UnTypedFile, FileSize(UnTypedFile));
    FillChar(Buffer, SizeOf(Buffer), 'Y');
    Block(UnTypedFile, Buffer, 1, NumRecsWritten);
  finally
    CloseFile(UnTypedFile);
  end;
end;
// 摘自d5开发人员指南第12章－文件处理