Delphi 7 and Delphi Tokyo - Different results same function

user_2547298 0
Viewed 466

I am converting an old project that was written in Delphi 7 to newest version (Delphi Tokyo), In the old code there is this function that scrambles and unscrambles text but when I read the scrambled text with the same program compiled in Delphi Tokyo it just produces garbage.

Does anyone here know why the same code behaves and gives different result compiled with different versions of Delphi ?

Here is the function : 

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;
pascal delphi
1 Answers

Starting with Delphi 2009, the string type automatically maps to the Unicode compatible UnicodeString type. Before, it mapped to the AnsiString type.

You can use your routine unchanged by expliticely using AnsiString and 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;

Note that this can cause unexpected results at runtime if the string passed to the function does contain unicode characters that cannot be mapped to the local ANSI character set.

user_1010870
Related