fix bad copy & paste

This commit is contained in:
Basile Burg 2020-02-13 22:43:48 +01:00
parent 7a04995921
commit 3dc167d4cd
1 changed files with 1 additions and 1 deletions

View File

@ -1074,7 +1074,7 @@ begin
break; break;
end; end;
end; end;
if (li <> -1) and (li <> -1) then if (li <> -1) and (ri > li) then
begin begin
for i := li to ri do for i := li to ri do
result += tokens[i]^.Data; result += tokens[i]^.Data;