Потоки и файловые форматы

// Определите реальную гарантию в PartialRead.
program PartialRead;
{$APPTYPE CONSOLE}
uses System.Classes;
var
  Stream: TStream;
  Buffer: array[0..1023] of Byte;
  ReadCount: Integer;
begin
  Stream := TMemoryStream.Create;
  try
    ReadCount := Stream.Read(Buffer, SizeOf(Buffer));
    Writeln(ReadCount);
  finally Stream.Free; end;
end.

// Проследите фактическое поведение VersionedFormat.
program VersionedFormat;
{$APPTYPE CONSOLE}
uses System.Classes, System.SysUtils;
const
  Magic: array[0..3] of AnsiChar = ('D','P','F','1');
var
  Version: Word;
begin
  Version := 3;
  if Version > 2 then
    raise EReadError.CreateFmt('Unsupported version %d', [Version]);
end.

// Отделите правило языка от удачного запуска BinaryRecord.
program BinaryRecord;
{$APPTYPE CONSOLE}
uses System.Classes;
type
  THeader = record
    Magic: Cardinal;
    Name: string;
    Count: Integer;
  end;
var
  H: THeader;
  S: TFileStream;
begin
  H.Magic := $50415343;
  H.Name := 'demo';
  S := TFileStream.Create('header.bin', fmCreate);
  try S.WriteBuffer(H, SizeOf(H)); finally S.Free; end;
end.

// Буфер объединяет множество мелких записей перед обращением к файлу.
program BufferedWrite;
{$APPTYPE CONSOLE}
uses System.Classes;
const
  Data: array[0..3] of AnsiChar = ('A', 'B', 'C', 'D');
var
  Buffered: TBufferedFileStream;
  I: Integer;
begin
  Buffered := TBufferedFileStream.Create('out.bin', fmCreate, 8192);
  try
    for I := 1 to 10000 do
      Buffered.WriteBuffer(Data, SizeOf(Data));
  finally
    Buffered.Free;
  end;
end.

// Проследите фактическое поведение FileShareMode.
program FileShareMode;
{$APPTYPE CONSOLE}
uses System.Classes;
var
  S: TFileStream;
begin
  S := TFileStream.Create('data.bin', fmOpenRead or fmShareDenyWrite);
  try
    Writeln(S.Size);
  finally S.Free; end;
end.