Функція для затримки виконання скрипта на вказану кількість мілісекунд.


Важливо! Функція сервісна, у реальній роботі намагайтеся уникати штучних затримок.

 

Синтаксис

procedure ScriptSleep(const ASleepTime: integer);

 

Приклад

var
  i: integer;
  iStarted, iNow: int64;
begin
  mLogScript('Started', '');
  iStarted := GetTickCount;
  for i := 1 to 5 do begin
    ScriptSleep(i * 100);
    iNow := GetTickCount;
    mLogScript(IntToStr(iNow - iStarted), 'Iteration #' + IntToStr(i));
  end;
  mLogScript('Finish', '');
end.


Результат роботи скрипту

[19:45:43] (Log "ScriptSleepExample"): Started

[19:45:43] (Log "ScriptSleepExample"): [Iteration #1] 110

[19:45:43] (Log "ScriptSleepExample"): [Iteration #2] 313

[19:45:44] (Log "ScriptSleepExample"): [Iteration #3] 625

[19:45:44] (Log "ScriptSleepExample"): [Iteration #4] 1031

[19:45:45] (Log "ScriptSleepExample"): [Iteration #5] 1547

[19:45:45] (Log "ScriptSleepExample"): Finish

[19:45:45] (Run "ScriptSleepExample"): Час виконання скрипту: 1540 мс

[19:45:45] (Run "ScriptSleepExample"): Скрипт виконано успішно.
 

Дивитися ще

GetTickCount

IntToStr

mLogScript