SASGIS

/// get text File contents (even Unicode or UTF8) and convert it into a

// Charset-compatible AnsiString (for Delphi 7) or an UnicodeString (for Delphi

// 2009 and up) according to any BOM marker at the beginning of the file

// - before Delphi 2009, the current string code page is used (i.e. CurrentAnsiConvert)

function AnyTextFileToString(const FileName: TFileName; ForceUTF8: boolean): string;

var Map: TMemoryMap;

begin

  result := '';

  if Map.Map(FileName) then

  try

    if ForceUTF8 then

{$ifdef UNICODE}

      UTF8DecodeToString(PUTF8Char(Map.Buffer),Map.Size,result) {$else}

      result := CurrentAnsiConvert.UTF8BufferToAnsi(PUTF8Char(Map.Buffer),Map.Size)

{$endif} else

    case TextFileKind(Map) of

{$ifdef UNICODE}

    isUnicode:

      SetString(result,PWideChar(PtrInt(Map.Buffer)+2),(Map.Size-2) shr 1);

    isUTF8:

      UTF8DecodeToString(pointer(PtrInt(Map.Buffer)+3),Map.Size-3,result);

    isAnsi:

      result := CurrentAnsiConvert.AnsiToUnicodeString(Map.Buffer,Map.Size);

{$else}

    isUnicode:

      result := CurrentAnsiConvert.UnicodeBufferToAnsi(PWideChar(PtrInt(Map.Buffer)+2),(Map.Size-2) shr 1);

    isUTF8:

      result := CurrentAnsiConvert.UTF8BufferToAnsi(pointer(PtrInt(Map.Buffer)+3),Map.Size-3);

    isAnsi:

      SetString(result,PAnsiChar(Map.Buffer),Map.Size);

{$endif}

    end;

  finally

    Map.UnMap;

  end;

end;