fix missing comparison rhs

This commit is contained in:
Basile Burg 2015-09-05 22:37:05 +02:00
parent a1e83f3bdc
commit ac17c180e1
1 changed files with 1 additions and 1 deletions

View File

@ -1046,7 +1046,7 @@ begin
exit;
if str[1] = ';' then
result := true;
if (length(str) > ) and (str[1..2] = '//') then
if (length(str) > 1) and (str[1..2] = '//') then
result := true;
end;