在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;

但是，我看到的不是日语中的字符，而是一些完全不同的符号集。有什么提示吗？

- Tofig Hasanov

Answer 1

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

- Ondrej Kelle

Answer 2

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

编辑：一些搜索结果表明有函数 UTF8ToWideString。

- Jens Björnhager