Unicode-Zeichen aus der Textdatei in Delphi 2009 lesen

Question

Ich habe das folgende Stück Code, um japanische Kanji-Zeichen aus UTF-8-Format Textdatei zu lesen und dann in Memo zu laden.

Var F:textFile; 
S:string; 
Begin 
AssignFile(F,'file.txt'); 
Reset(F); 
While not EoF(F) do 
Begin 
    Readln(F,S); 
    Memo1.Lines.Add(S); 
End; 
CloseFile(F); 
End; 

Aber anstelle von Zeichen sehe ich einige völlig unterschiedliche Symbole, die nicht mit Japanisch verwandt sind. Irgendwelche Hinweise?

Answer 1

Verwenden Sie Memo1.Lines.LoadFromFile oder LoadFromStream. TextFile verwendet ANSI noch in Delphi 2009.

Answer 2

Sie müssen in UTF-16 konvertieren, das Windows verwendet, bevor Sie Ihre Zeichenfolgen verwenden.

Edit: Etwas googlen ergibt die Funktion UTF8ToWideString.