delphi - 加载文本时的中文符号

Question

我正在将文本从文本文件加载到richedit，但它显示奇怪的中文符号，我做错了什么？

ms := TMemoryStream.Create;
ms.LoadFromFile('C:\aw.txt');
ms.Seek(0, soFromEnd);
zChar:=#0;
ms.Write(zChar, 1);
ms.Seek(0, soFromBeginning);
RichEdit1.SetSelTextBuf(ms.Memory);
ms.free;

Answer 1

编辑根据问题的评论修改我的答案，特别是对Delphi 7的提示。

Richedit基于richedit.dll，它来自MS并与Windows一起打包。 Windows ME之后，启用了UNICODE。因此，它获得将文件的前 2 个字符解释为 BOF 的字符集。在某些情况下，字符会被错误解释并被视为 ASCII 或 ANSI 文件中的 BOF(出于兼容性原因，它们不会具有 BOF)。这也可以在 write.exe 中看到。

确保在记事本中保存文件时使用正确的编码。如果文件没有编码(在二进制查看器中查看前两个字节)，请尝试(如果可能)在前面添加两个空格，看看问题是否仍然存在。

德尔福 2009 和 2010

我将留下我的第一个答案，以帮助人们升级到 Delphi 2009 及更高版本:

我实际上想说的是，文本文件没有编码，而是纯 ASCII 或 ANSI，并且您使用的是启用了 UNICODE 的 Delphi 2009 或 2010。前两个字符将被视为 BOF(它告诉程序使用哪种 UNICODE 编码)。如果这恰好是正确的 BOF，则可能会应用错误的编码。

TMemoryStream 不允许强制编码。

如果可能，您可以使用 TStrings，它在 LoadFromFile 方法中具有新的 TEncoding 参数。这就像

    RichEdit1.Lines.LoadFromFile('c:\test.txt', TEncoding.ASCII);

也看看这个页面:http://edn.embarcadero.com/article/38693