# | Line 664 | Line 664 | begin | |
---|---|---|
664 | BoolToStr(RawLinks[i].LocSep) + ', 0);'; | |
665 | Query.ExecSQL; | |
666 | end; | |
667 | + | if ((i mod 100) = 0) and (FileID > 0) then |
668 | + | begin |
669 | + | Database.Commit(False); |
670 | + | Database.StartTransaction; |
671 | + | end; |
672 | end; | |
673 | end; | |
674 |
– | Removed lines |
+ | Added lines |
< | Changed lines (old) |
> | Changed lines (new) |