Changeset 150


Ignore:
Timestamp:
Apr 1, 2007, 8:26:35 PM (14 years ago)
Author:
alloc
Message:
 
Location:
oup/current
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • oup/current/Helper/LevelDB.pas

    r146 r150  
    356356      Stream_Body.CopyFrom(DatFileStream, DatFileStream.Size);
    357357      if (Stream_Body.Size mod 32) > 0 then
     358      begin
     359        ShowMessage(
     360            IntToStr(FileID) + '-' + FileInfo.Name + '.' + FileInfo.Extension + #13#10 +
     361            IntToStr(Stream_Body.Size));
    358362        Stream_Body.Write(EmptyBytes[0], 32 - (Stream_Body.Size mod 32));
     363      end;
    359364    end
    360365    else
Note: See TracChangeset for help on using the changeset viewer.