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 129 by alloc, Wed Mar 28 01:12:22 2007 UTC vs.
Revision 130 by alloc, Wed Mar 28 01:17:24 2007 UTC

#	Line 155 | Line 155 | begin
155		begin
156		ShowMessage('Couldn''t delete file. Aborting');
157		Exit;
158	<	end else if not DeleteFile(AnsiReplaceStr(Target, '.dat', '.sep')) then
158	>	end else if Connection.DataOS in [DOS_WINDEMO, DOS_MAC, DOS_MACBETA] then
159		begin
160	<	ShowMessage('Couldn''t delete file. Aborting');
161	<	Exit;
160	>	if not DeleteFile(AnsiReplaceStr(Target, '.dat', '.sep')) then
161	>	begin
162	>	ShowMessage('Couldn''t delete file. Aborting');
163	>	Exit;
164	>	end;
165		end;
166		end else begin
167		ShowMessage('Aborting');
#	Line 343 | Line 346 | begin
346		FilesHeader[i].FileSize := fileinfo.Size;
347		FilesHeader[i].FileType := fileinfo.FileType;
348
349	<	if ((i mod 10) = 0) and (i >= 100) then
349	>	if ((FileID mod 10) = 0) and (FileID >= 100) then
350		lbl_estimation.Caption := 'Estimated time left: ' + TimeToStr(
351	<	(Time - FileTime) / i * (progress.Max - i + 1) * 1.1, TimeFormat );
352	<	progress.Position := i + 1;
353	<	lbl_progress.Caption := 'Files done: ' + IntToStr(i + 1) + '/' + IntToStr(progress.Max);
351	>	(Time - FileTime) / FileID * (progress.Max - FileID + 1) * 1.1, TimeFormat );
352	>	progress.Position := FileID + 1;
353	>	lbl_progress.Caption := 'Files done: ' + IntToStr(FileID + 1) + '/' + IntToStr(progress.Max);
354		Application.ProcessMessages;
355		end;
356

Diff Legend

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