Delphi 2009'daki metin dosyasından unicode karakterleri okuma

Question

Japon Kanji karakterlerini UTF-8 biçimindeki Metin dosyasından okumak ve sonra bunu Memo'ya yüklemek için aşağıdaki kod parçasına sahibim.

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; 

Ama bunun yerine karakterlerin Ben Japon setine ilişkin tamamen farklı semboller, bazı kümesine bakın. Herhangi bir ipucu?

Answer 1

Memo1.Lines.LoadFromFile veya LoadFromStream'u kullanın. TextFile hala Delphi 2009'da ANSI kullanıyor.

Answer 2

Dizelerinizi kullanmadan önce, hangi pencerelerin kullandığı UTF-16'ya dönüştürmeniz gerekir.

Düzenleme: Bazı googling işlevi UTF8ToWideString işlevini verir.