История изменений

{$codepage UTF8}
var
  f: file;
  b: PChar;
  fsize: Int64;
begin
  Assign(f,'test1.txt');
  Reset(f,1);
  fsize:=FileSize(f);
  GetMem(b,fsize+1);
  BlockRead(f,b^,fsize);
  b[fsize]:=#0;
  ...
  FreeMem(b);

{$codepage UTF8}
var
  f: file;
  b: PChar;
  fsize: Int64;
begin
  Assign(f,'test1.txt');
  Reset(f,1);
  fsize:=FileSize(f);
  GetMem(b,fsize+1);
  BlockRead(f,b^,fsize);
  b[fsize]:=#0;