Узнать количество time-скриптов с указанным именем, запланированных к выполнению. Функцию удобно использовать для определения, есть в очереди на выполнение тайм-скрипты или нет.

 

Синтаксис

function mGetAutoScriptsCountByName(sScriptName: string): integer;

 

Параметры и возвращаемые значения

Параметр

Тип

Значение

sScriptName

string

название тайм-скрипта.

 

Результат функции

Возвращает количество скриптов. Если таких нет — будет возращено 0.

 

Пример

Добавляется в очередь 3 скрипта-пустышки с одинаковыми названиями ("myscript"). Затем выводится в отладочную консоль количество запланированных скриптов с несуществующим именем "testscript" и с именем "myscript". После этого все вхождения скрипта "myscript" удаляются из очереди на выполнение.

 

var
  i, iCount: integer;
begin
  for i := 1 to 3 do
    mAddAutoScriptFromString('myscript', 'begin end.', IncMinute(Now, i));
  iCount := mGetAutoScriptsCountByName('testscript');
  mLogScript(inttostr(iCount), 'nonexistent script');
  
  iCount := mGetAutoScriptsCountByName('myscript');
  mLogScript(inttostr(iCount), '"myscript" entries');
  
  mDeleteAutoScriptByName('myscript');
end.

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

[18:04:46] (Log "mGetAutoScriptsCountByName"): [nonexistent script] 0

[18:04:46] (Log "mGetAutoScriptsCountByName"): ["myscript" entries] 3

[18:04:46] (Run "mGetAutoScriptsCountByName"): Время выполнения скрипта: 2 мс

[18:04:46] (Run "mGetAutoScriptsCountByName"): Скрипт выполнен успешно.

 
Ещё посмотреть

IncMinute

IntToStr

mAddAutoScriptFromString

mDeleteAutoScriptByName

mLogScript

Now