Ich verwende Delphi 7 mit der neuesten
Jedi version.
Die Beispiel-TextDatei ist angehängt.
Ich lade sie so:
Delphi-Quellcode:
ws := TWideStringList.Create;
ws.LoadFromFile(FileName);
Evaluate von ws.Text gibt dies aus (alles korrekt):
'GStreamer Codec and Totem Movie Player for Linux'#$D#$A
Wenn ich nun diese Umwandlung mache:
Delphi-Quellcode:
function UTF16ToCodepage(s: WideString): string;
begin
Result := s;
end;
...
var
s: string;
begin
...
s := UTF16ToCodepage(ws.Text);
gibt Evaluate von s dies aus:
'ÿþG'#0'S'#0't'#0'r'#0'e'#0'a'#0'm'#0'e'#0'r'#0' '#0'C'#0'o'#0'd'#0'e'#0'c'#0' '#0'a'#0'n'#0'd'#0' '#0'T'#0'o'#0't'#0'e'#0'm'#0' '#0'M'#0'o'#0'v'#0'i'#0'e'#0' '#0'P'#0'l'#0'a'#0'y'#0'e'#0'r'#0' '#0'f'#0'o'#0'r'#0' '#0'L'#0'i'#0'n'#0'u'#0'x'#0#$D#0#$A#0#$D#0#$A#0
String(s) liefert das gleiche Ergebnis.