Changeset 10 for trunk/UBlockMap.pas

Timestamp:

Apr 2, 2016, 12:02:59 AM (8 years ago)

Author:

chronos

Message:

• Added support for continue previous stopped scan.
• Modified: Allow to scan only part of drive by specifiing start and end sector.
• Added: Table showing list of operations in project.
• Added: Allow to create new project and close project.

File:

• trunk/UBlockMap.pas (modified) (4 diffs)

trunk/UBlockMap.pas

@@ -182 +182 @@
       TChange(FChanges[ChangeIndex + 1]).Index := Index + 1;
       TChange(FChanges[ChangeIndex + 1]).Value := Change.Value;
-      if ChangeIndex = 0 then
+      if ChangeIndex = 0 then begin
+        TChange(FChanges[ChangeIndex]).Index := Index;
         TChange(FChanges[ChangeIndex]).Value := AValue;
+        FChanges.Insert(ChangeIndex, TChange.Create);
+        TChange(FChanges[ChangeIndex]).Index := 0;
+        TChange(FChanges[ChangeIndex]).Value := bsNone;
+      end;
     end else raise Exception.Create(SUnexpectedCombination);
   end else raise Exception.Create(Format(SIndexOutOfRange, [Index]));
@@ -202 +207 @@
   // Cut changes outside of max sector count
   I := FChanges.Count - 1;
-  while TChange(FChanges[I]).Index >= FSectorCount do Dec(I);
-  if TChange(FChanges[I]).Index >= FSectorCount then FChanges.Count := I;
+  while (I >= 0) and (TChange(FChanges[I]).Index >= FSectorCount) do Dec(I);
+  if (I >= 0) and (TChange(FChanges[I]).Index >= FSectorCount) then FChanges.Count := I;
 
   UpdateBlockSize;
@@ -330 +335 @@
   I: Integer;
 begin
-  WriteInteger(Node, 'SectorCount', SectorCount);
-
   NewNode := Node.OwnerDocument.CreateElement('Changes');
   Node.AppendChild(NewNode);
@@ -348 +351 @@
   NewChange: TChange;
 begin
-  SectorCount := ReadInteger(Node, 'SectorCount', 0);
-
   NewNode := Node.FindNode('Changes');
   if Assigned(NewNode) then begin