fix, possible AV if str is empty

This commit is contained in:
Basile Burg 2015-03-20 03:33:41 +01:00
parent 03a6d355e2
commit e23faedaba
1 changed files with 2 additions and 1 deletions

View File

@ -968,6 +968,7 @@ var
begin begin
for str1 in fCustom do if str1 <> '' then for str1 in fCustom do if str1 <> '' then
begin begin
if length(str) > 0 then
if str1[1] = ';' then if str1[1] = ';' then
continue; continue;
if length(str1) > 1 then if length(str1) > 1 then