Lettura di caratteri unicode da file di testo in Delphi 2009

Question

Ho il seguente pezzo di codice per leggere i caratteri Kanji giapponesi dal file di testo in formato UTF-8 e quindi caricarlo in 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; 

Ma invece di caratteri, vedo un insieme di simboli completamente diversi, non correlati al set giapponese. Qualche suggerimento?

Answer 1

Utilizzare Memo1.Lines.LoadFromFile o LoadFromStream. TextFile utilizza ancora ANSI anche a Delphi 2009.

Answer 2

È necessario convertire in UTF-16, che utilizza Windows, prima di utilizzare le stringhe.

Modifica: alcuni googling restituiscono la funzione UTF8ToWideString.