fix, possible AV if str is empty

2015-03-20 03:33:41 +01:00 · 2015-03-20 03:33:41 +01:00 · e23faedaba
parent 03a6d355e2
commit e23faedaba
1 changed files with 2 additions and 1 deletions
--- a/src/ce_dmdwrap.pas
+++ b/src/ce_dmdwrap.pas
@ -968,6 +968,7 @@ var
 begin
  for str1 in fCustom do if str1 <> '' then
  begin
+    if length(str) > 0 then
      if str1[1] = ';' then
        continue;
    if length(str1) > 1 then