ViewVC Help
View File | Revision Log | View Changeset | Root Listing
root/Oni2/oup/current/Helper/LevelDB.pas
(Generate patch)

Comparing oup/current/Helper/LevelDB.pas (file contents):
Revision 151 by alloc, Sun Apr 1 18:31:52 2007 UTC vs.
Revision 152 by alloc, Sun Apr 1 18:38:11 2007 UTC

# Line 358 | Line 358 | begin
358        begin
359          ShowMessage(
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              IntToStr(Stream_Body.Size) + ' - 0x' + IntToHex(Stream_Body.Size, 6) );
363          Stream_Body.Write(EmptyBytes[0], 32 - (Stream_Body.Size mod 32));
364        end;

Diff Legend

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