Wie kann ich eine UTF16-Codierte Textdatei als 8-Bit Ansistring einlesen?

[littleDave]

Quick'n'dirty:

Delphi-Quellcode:

function Utf16ToAnsi(const Input: WideString): AnsiString;
begin
  // Nur bis < Delphi 2009 - ab da ist UTF8Encode obsolute, gibt dafür aber ne neue Funktion
  result := Utf8ToAnsi(UTF8Encode(Input));
end;

und dann noch einen Ansi-String als WideString interpretieren:

Delphi-Quellcode:

// Einfach aus den Fingern gesogen - ohne Test
function AnsiAsUtf16(const Input: AnsiString): WideString;

  function internDupe(const s: WideString): WideString;
  begin
    result := s;
  end;

var p1: Pointer;
begin
  p1 := @Input;

  result := internDupe(PWideString(p1)^);
end;