Высокоточный таймер, позволяющий замерить время затраченное на выполнение каких-либо операций. Точность таймера более 1-ой микросекунды.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 |
var countFreq, tmrStart, tmrStop: TLargeInteger; ... var sec: string; begin startTimer(); //--- делаем что-то sec:= stopTimer(); ShowMessage('На выполение операции затрачено: ' + sec + ' сек.'); end; |
Параметры
Нет
Результат
Количество секунд с момента запуска таймера.
1 2 3 4 5 6 7 8 9 10 11 |
function startTimer(): Boolean; begin QueryPerformanceFrequency(countFreq); QueryPerformanceCounter(tmrStart); end; function stopTimer(): string; begin QueryPerformanceCounter(tmrStop); Result:= FormatFloat('0.000000', (tmrStop - tmrStart)/countFreq); end; |