Changeset 133 for oup/current


Ignore:
Timestamp:
Mar 28, 2007, 4:23:44 AM (18 years ago)
Author:
alloc
Message:
 
File:
1 edited

Legend:

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

    r132 r133  
    302302      DatFileStream := TMemoryStream.Create;
    303303      Connection.LoadDatFile(FileID, TStream(DatFileStream));
    304       DatFileStream.Seek(4, soFromBeginning);
     304      DatFileStream.Seek(0, soFromBeginning);
     305      DatFileStream.Write(FileID, 4);
    305306      DatFileStream.Write(LevelID, 4);
    306307
     
    392393  DatHeader.NamesSize := Stream_Names.Size;
    393394  DatHeader.DataAddr  := Stream_Dat.Size;
     395
    394396  Stream_Body.Seek(0, soFromBeginning);
    395397  Stream_Dat.CopyFrom(Stream_Body, Stream_Body.Size);
Note: See TracChangeset for help on using the changeset viewer.