我正在将一份使用Delphi 7编写的旧项目转换为最新版本(Delphi Tokyo)。在旧代码中,有这个函数用于对文本进行混淆和解混淆。但当我用在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;
string
是 AnsiStrings,在 Delphi Tokio 中它是 UnicodeString。 - ain