Справка MyChat

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

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

Синтаксис

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