Changeset 145 for oup

Timestamp:

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

Author:

alloc

Message:

 

Location:

oup/current

Files:

• Helper/LevelDB.pas (modified) (1 diff)
• _exe/OniUnPacker.exe (modified) ( previous)

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;