Changeset 145 for oup/current/Helper

Timestamp:

Apr 1, 2007, 5:14:09 PM (18 years ago)

Author:

alloc

Message:

 

File:

• oup/current/Helper/LevelDB.pas (modified) (1 diff)

oup/current/Helper/LevelDB.pas

@@ -665 +665 @@
             Query.ExecSQL;
           end;
+          if ((i mod 100) = 0) and (FileID > 0) then
+          begin
+            Database.Commit(False);
+            Database.StartTransaction;
+          end;
         end;
       end;