ViewVC Help

View File | Revision Log | View Changeset | Root Listing

root/Oni2/oup/current/Helper/LevelDB.pas

Comparing oup/current/Helper/LevelDB.pas (file contents):
Revision 152 by alloc, Sun Apr 1 18:38:11 2007 UTC vs.
Revision 166 by alloc, Tue Apr 3 02:58:53 2007 UTC

#	Line 24 | Line 24 | var
24		implementation
25		{$R *.dfm}
26		uses ABSMain, ABSDecUtil, Main,
27	<	ConnectionManager, TypeDefs, DataAccess, OniImgClass, Data, RawList;
27	>	ConnectionManager, TypeDefs, DataAccess, OniImgClass, Data, RawList,
28	>	Access_OniArchive;
29
30		var
31		Converting:  Boolean = False;
#	Line 202 | Line 203 | begin
203		Stream_Names := TMemoryStream.Create;
204		Stream_Dat   := TFileStream.Create(Target, fmCreate);
205		Stream_Raw   := TFileStream.Create(AnsiReplaceStr(Target, '.dat', '.raw'), fmCreate);
206	+	Stream_Raw.Write(EmptyBytes[0], 32);
207		if Connection.DataOS in [DOS_WINDEMO, DOS_MAC, DOS_MACBETA] then
208	+	begin
209		Stream_Sep := TFileStream.Create(AnsiReplaceStr(Target, '.dat', '.sep'), fmCreate);
210	+	Stream_Sep.Write(EmptyBytes[0], 32);
211	+	end;
212	+
213
214		DoStep('Creating header');
215		progress.Position      := 0;
#	Line 626 | Line 632 | begin
632		DoStep('Writing .dat-fileslist');
633		Application.ProcessMessages;
634
635	+	TAccess_OniArchive(Connection).UnloadWhenUnused := False;
636	+
637		FileTime := Time;
638		Database.StartTransaction;
639		for FileID := 0 to Connection.GetFileCount - 1 do

Diff Legend

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