Функция для получения времени аптайма хост-системы Windows в миллисекундах.

 

Синтаксис

function GetTickCount: int64;

 

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

Число мілісекунд, тип int64.

 

Приклад

Вимірювання часу виконання фрагмента коду скрипта для профілювання продуктивності.


var
  iStart: int64;
  i: integer;
  r: double;
begin
  iStart := GetTickCount;
  
    for i := 1 to 100000 do 
      r := Sqrt(Random(1000000)) + Sin(Random(1000));
      
  mLogScript(IntToStr(GetTickCount - iStart), 'milliseconds');
end.


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

[12:18:20] (Log "GetTickCount"): [milliseconds] 453

[12:18:20] (Run "GetTickCount"): Час виконання скрипту: 454 мс

[12:18:20] (Run "GetTickCount"): Скрипт виконано успішно.
 

Дивитися ще

IntToStr

mLogScript

Random

Sin

Sqrt