在Delphi 2009中从文本文件中读取unicode字符

Question

我有以下代码来读取UTF-8格式文本文件中的日文汉字字符，然后将其加载到备忘录中。

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;

但是我没有看到一些完全不同的符号，而是与日本集合无关。任何提示？

Answer 1

使用Memo1.Lines.LoadFromFile或LoadFromStream。即使在Delphi 2009中，TextFile仍在使用ANSI。

Answer 2

在使用字符串之前，您需要转换为Windows使用的UTF-16。

编辑：一些谷歌搜索产生函数UTF8ToWideString。