Browse Source

Update UAccounts.pas

Fixed minor bug on Sleep location
PascalCoin 6 years ago
parent
commit
5c3d24fff6
1 changed files with 2 additions and 2 deletions
  1. 2 2
      src/core/UAccounts.pas

+ 2 - 2
src/core/UAccounts.pas

@@ -2870,8 +2870,8 @@ begin
               if (Assigned(progressNotify)) and ((TPlatform.GetElapsedMilliseconds(tc)>=500)) then begin
                 tc := TPlatform.GetTickCount;
                 progressNotify(Self,Format('Validating OperationBlock info %d/%d',[LValidatedOPOk,LValidatedOPOk+LValidatedOPPending]),LValidatedOPOk,LValidatedOPOk+LValidatedOPPending);
-              end;
-
            end else Sleep(100);
+              end else Sleep(100)
+
            end;
           until LValidatedOPPending<=0 ;
         end;
       finally