Lectura de caracteres Unicode desde un archivo de texto en Delphi 2009

Question

Tengo el siguiente fragmento de código para leer caracteres Kanji japoneses del archivo de texto en formato UTF-8 y luego cargarlo en Memo.

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; 

Pero en lugar de caracteres que ver algún conjunto de símbolos totalmente diferentes, no relacionados con conjunto japonés. ¿Algún consejo?

Answer 1

Use Memo1.Lines.LoadFromFile, o LoadFromStream. TextFile sigue usando ANSI incluso en Delphi 2009.

Answer 2

Necesita convertir a UTF-16, que Windows usa, antes de usar sus cadenas.

Editar: Algunos googles producen la función UTF8ToWideString.