Delphi 7 和 Delphi Tokyo - 不同的结果相同的功能

Question

我正在将一个用 Delphi 7 编写的旧项目转换为最新版本（Delphi Tokyo），在旧代码中，有这个功能可以对文本进行加扰和解密，但是当我使用在 Delphi 中编译的相同程序读取加扰文本时东京它只会产生垃圾。

这里有没有人知道为什么相同的代码会表现出来并给出不同版本的 Delphi 编译的不同结果？

这里是函数：

function TForm2.EnDeCrypt(const Value : String) : String;
var
  CharIndex : integer;
begin
  Result := Value;
  for CharIndex := 1 to Length(Value) do
    Result[CharIndex] := chr(not(ord(Value[CharIndex])));
end; 

Answer 1

从 Delphi 2009 开始，string 类型自动映射到 Unicode 兼容的 UnicodeString 类型。之前，它映射到AnsiString 类型。

您可以通过明确地使用 AnsiString 和 AnsiChar 来使用您的例程。

function TForm2.EnDeCrypt(const Value : AnsiString) : AnsiString;
var
  CharIndex : integer;
begin
  Result := Value;
  for CharIndex := 1 to Length(Value) do
    Result[CharIndex] := AnsiChar(not(ord(Value[CharIndex])));
end; 

请注意，如果传递给函数的字符串确实包含无法映射到本地 ANSI 字符集的 unicode 字符，这可能会在运行时导致意外结果。