[ViewVC] Diff of: Oni2/oup/current/Helper/LevelDB.pas

Comparing oup/current/Helper/LevelDB.pas (file contents):
Revision 145 by alloc, Sun Apr 1 15:14:09 2007 UTC vs.
Revision 150 by alloc, Sun Apr 1 18:26:35 2007 UTC

+      DatFileStream.Seek(0, soFromBeginning);
+      Stream_Body.CopyFrom(DatFileStream, DatFileStream.Size);
+      if (Stream_Body.Size mod 32) > 0 then
-+
+      begin
-+
+        ShowMessage(
-+
+            IntToStr(FileID) + '-' + FileInfo.Name + '.' + FileInfo.Extension + #13#10 +
-+
+            IntToStr(Stream_Body.Size));
+        Stream_Body.Write(EmptyBytes[0], 32 - (Stream_Body.Size mod 32));
-+
+      end;
+    end
+    else
+      FilesHeader[FileID].DataAddr := 0;
+              BoolToStr(RawLinks[i].LocSep) + ', 0);';
+            Query.ExecSQL;
+          end;
-–
+          if ((i mod 100) = 0) and (FileID > 0) then
-–
+          begin
-–
+            Database.Commit(False);
-–
+            Database.StartTransaction;
-–
+          end;
+        end;
+      end;

-–
+Removed lines
-+
+Added lines
-<
+Changed lines (old)
->
+Changed lines (new)