1 1 1 1 1 1 1 1 1 1 Рейтинг 0.00 (0 Голоса(ов)

Измерить малые интервалы в работе программы (Delphi)

Для измерения очень малых временных интервалов в Delphi (и не только) можно использовать такты процессора.

Объявлем переменные

Код Delphi:
  1. var
  2. iCounterPerSec: TLargeInteger;
  3. C1, C2: TLargeInteger;
  4. e: extended;

Измеряем частоту высокочастотного таймера измерения производительности.

Код Delphi:
QueryPerformanceFrequency(iCounterPerSec);

Берем отсечки счетчиков таймера и вычисляем по их разнице прошедшее время.

Код Delphi:
  1. QueryPerformanceCounter(C1);
  2. // Тут что-то делаем
  3. QueryPerformanceCounter(C2);
  4. e:=(C2-C1)/iCounterPerSec;

Оставьте свой комментарий

Оставить комментарий как гость

0
  • Комментариев нет
Tinydeal WW