Changeset 133 for oup/current
- Timestamp:
- Mar 28, 2007, 4:23:44 AM (18 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
oup/current/Helper/LevelDB.pas
r132 r133 302 302 DatFileStream := TMemoryStream.Create; 303 303 Connection.LoadDatFile(FileID, TStream(DatFileStream)); 304 DatFileStream.Seek(4, soFromBeginning); 304 DatFileStream.Seek(0, soFromBeginning); 305 DatFileStream.Write(FileID, 4); 305 306 DatFileStream.Write(LevelID, 4); 306 307 … … 392 393 DatHeader.NamesSize := Stream_Names.Size; 393 394 DatHeader.DataAddr := Stream_Dat.Size; 395 394 396 Stream_Body.Seek(0, soFromBeginning); 395 397 Stream_Dat.CopyFrom(Stream_Body, Stream_Body.Size);
Note:
See TracChangeset
for help on using the changeset viewer.