Delphi 字符现在以 2 个字节而不是 1 个字节存储在类型化二进制文件中。我怎样才能继续阅读我的旧文件？

Question

我维护一个 Delphi 程序，它使用类型化的二进制文件作为其本机文件格式。从 Turbo Delphi 升级到 Delphi 2010 后，存储的记录类型中的所有字符开始以 2 个字节而不是 1 个字节存储。

存储的数据类型是 char 和 array[1..5] of char。

所以之前，文件的一部分看起来像：

4C 20 20 20 4E 4E 4E 4E

现在看起来像：

4C 00 20 00 20 00 20 00 4E 00 4E 00 4E 00 4E 00

首先，为什么会发生这种情况？

其次，我怎样才能仍然读取我的文件，同时记住现在宇宙中漂浮着旧文件和新文件？

午饭后我会密切关注这个问题。请随时在评论中询问更多信息。

Answer 1

当 Delphi 2009 中默认的 string 类型从 AnsiString 更改为 UnicodeString 时，就会发生这种情况。听起来您正在将字符串写入文件。在记录中将它们重新声明为 AnsiString ，它应该可以正常工作。

char 也是如此。原始字符是 AnsiChar，每个字符一个字节。现在默认的字符是 WideChar，它是 UTF-16 字符，每个字符 2 个字节。将您的 char 数组重新声明为 AnsiChar 数组，您将恢复旧的文件样式。

至于意识到两种风格都存在，那是一团糟。除非文件中的版本号之类的东西在您升级 Delphi 版本时已更改，否则我想您唯一能做的就是扫描字符数据中的 00 字节，然后将其读入记录的 AnsiChar 或 WideChar 版本取决于是否找到记录。

Answer 2

在代码中，将字符串类型声明更改为 AnsiString，将 char 类型声明更改为 AnsiChar。它将使用与以前版本的 Delphi 相同的编码。
AnsiString/AnsiChar 类型也适用于以前版本的 Delphi。
但没有全局编译器开关。
然后将此 AnsiString/AnsiChar 转换为 unicode 字符串。

这里有两个例子，做同样的事情，一个使用 AnsiChar 数组，一个直接读取 AnsiString 内容。两者都返回一个通用的 Unicode 字符串：

function Read5(S: Stream): string;
var chars: array[1..5] of AnsiChar;
    tmp: AnsiString;
    i: integer;
begin
  S.Read(chars,5);
  for i := 1 to 5 do
    tmp := tmp+chars[i];
  result := string(tmp);
end;


function Read5(S: Stream): string;
var tmp: AnsiString;
begin
  SetLength(tmp,5);
  S.Read(tmp[1],5);
  result := string(tmp);
end;

您可以在所有程序中使用 AnsiChars，没有任何问题。

但如果您的 AnsiChars 用于字符串函数（如 pos 或 copy），您可能会遇到一些问题。

请始终仔细查看 Delphi 2010 编译器警告，并尝试通过显式显示它们来避免任何隐式的 ansi-unicode 转换。