- Timestamp:
- Apr 1, 2007, 8:38:11 PM (18 years ago)
- Location:
- oup/current
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
oup/current/Helper/LevelDB.pas
r151 r152 359 359 ShowMessage( 360 360 IntToStr(FileID) + '-' + FileInfo.Name + '.' + FileInfo.Extension + #13#10 + 361 IntToStr(FileInfo.Size) + ' - 0x' + IntToHex(FileInfo.Size, 6) + #13#10 +361 IntToStr(FileInfo.Size) + ' - 0x' + IntToHex(FileInfo.Size, 6) + ' - real: ' + IntToStr(DatFileStream.Size) + ' - 0x' + IntToHex(DatFileStream.Size, 6) + #13#10 + 362 362 IntToStr(Stream_Body.Size) + ' - 0x' + IntToHex(Stream_Body.Size, 6) ); 363 363 Stream_Body.Write(EmptyBytes[0], 32 - (Stream_Body.Size mod 32));
Note:
See TracChangeset
for help on using the changeset viewer.