FIX: Range check error (issue 0002553)

This commit is contained in:
Alexander Koblov 2020-11-11 19:52:47 +00:00
commit eca6398e5d

View file

@ -1130,7 +1130,7 @@ var
i, j: SizeInt;
pc : PChar;
begin
pc := @StringToCheck[1];
pc := Pointer(StringToCheck);
for i := 1 to Length(StringToCheck) do
begin
for j := 1 to Length(PossibleCharacters) do