Changeset 16 for trunk/UDriveScan.pas

Timestamp:

Apr 2, 2016, 8:18:30 PM (8 years ago)

Author:

chronos

Message:

• Added: Ability to add and remove scan operation.
• Modified: XMLConfig moved from TMainForm to TCore as more proper place for general object.

File:

• trunk/UDriveScan.pas (modified) (1 diff)

trunk/UDriveScan.pas

@@ -175 +175 @@
       Lock.Release;
       DoChange;
-
-      if ConfigTest then begin
-        if Random < 0.000001 then RealSize := 0
-          else RealSize := SectorSize;
-        //Sleep(1);
-      end else begin
-        F.Position := FSectorCurrent * SectorSize;
-        if Mode = rmRead then RealSize := F.Read(Buffer[0], SectorSize)
-          else if Mode = rmWrite then RealSize := F.Write(Buffer[0], SectorSize)
-          else raise Exception.Create(SUnknownRunMode);
-      end;
+      F.Position := FSectorCurrent * SectorSize;
+      if Mode = rmRead then RealSize := F.Read(Buffer[0], SectorSize)
+        else if Mode = rmWrite then RealSize := F.Write(Buffer[0], SectorSize)
+        else raise Exception.Create(SUnknownRunMode);
     finally
       Lock.Acquire;