How to read Unicode text files #168

function ReadUnicodeTextFile(aFName: string): WideString;
var
  buf: array[0..1024] of WideChar;
  f: file;
  dwRest, dwRead: DWORD;
begin
  result := '';
  Assign(f, aFName);
  Reset(f, 1);
  dwRest := FileSize(f);
  Assert((dwRest mod SizeOf(widechar)) = 0); {Unicode chars always 2 bytes}
  while dwRest > 1do
  begin
    BlockRead(f, buf, sizeof(buf), dwRead);
    if dwRest > dwRead then
      Dec(dwRest, dwRead)
    else
      dwRest := 0;
    buf[dwRead mod 2] := WideChar(#0);
    result := result + PWideString(buf);
  end;
end;