equal
deleted
inserted
replaced
523 if checkFails(f <> nil, 'Bad data or cannot access file ' + s, true) then exit; |
523 if checkFails(f <> nil, 'Bad data or cannot access file ' + s, true) then exit; |
524 |
524 |
525 ThemeObjects.Count:= 0; |
525 ThemeObjects.Count:= 0; |
526 SprayObjects.Count:= 0; |
526 SprayObjects.Count:= 0; |
527 |
527 |
528 while not pfsEOF(f) do |
528 while (not pfsEOF(f)) and allOK do |
529 begin |
529 begin |
530 pfsReadLn(f, s); |
530 pfsReadLn(f, s); |
531 if Length(s) = 0 then |
531 if Length(s) = 0 then |
532 continue; |
532 continue; |
533 if s[1] = ';' then |
533 if s[1] = ';' then |