在delphi中从文件快速读/写

var
  fs: TFileStream;
  buffer: array[0..1023] of Byte;
  bytesRead: Integer;
begin
  fs := TFileStream.Create('filename.txt', fmOpenRead);
  try
    bytesRead := fs.Read(buffer, SizeOf(buffer));
    while bytesRead > 0 do
    begin
      // 处理读取到的数据
      bytesRead := fs.Read(buffer, SizeOf(buffer));
    end;
  finally
    fs.Free;
  end;
end;

var
  ms: TMemoryStream;
  buffer: array[0..1023] of Byte;
  bytesRead: Integer;
begin
  ms := TMemoryStream.Create;
  try
    ms.LoadFromFile('filename.txt');
    bytesRead := ms.Read(buffer, SizeOf(buffer));
    while bytesRead > 0 do
    begin
      // 处理读取到的数据
      bytesRead := ms.Read(buffer, SizeOf(buffer));
    end;
  finally
    ms.Free;
  end;
end;

var
  buffer: array[0..1023] of Byte;
  bytesRead: Integer;
begin
  TFile.ReadBuffer('filename.txt', buffer, SizeOf(buffer));
  // 处理读取到的数据
end;