#97, fix possible range error in variables list

This commit is contained in:
Basile Burg 2016-12-04 14:56:27 +01:00
parent e79eeaecb1
commit 3998474470
No known key found for this signature in database
GPG Key ID: 1868039F415CB8CF
1 changed files with 1 additions and 1 deletions

View File

@ -2055,7 +2055,7 @@ begin
with lstVariables.Items[lstVariables.Items.Count-1] do
SubItems.Add(val.AsString);
end;
if (j <> -1) and (j <= lstVariables.Items.Count) then
if (j <> -1) and (j < lstVariables.Items.Count) then
lstVariables.ItemIndex := j;
lstVariables.EndUpdate;
end;