Самый надежный способ из всех, которые я встретил. Измеряет очень малые интервалы
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 |
var iCounterPerSec: TLargeInteger; C1, C2: TLargeInteger; ... QueryPerformanceFrequency(iCounterPerSec); QueryPerformanceCounter(C1); // your code here QueryPerformanceCounter(C2); FContentSL.Add('1 Preparing temp dirs for chunks on Server and Client = '+ FormatFloat('0.0000', (C2 - C1) / iCounterPerSec) + ' sec.'); ... |
Источник http://www.sql.ru/forum/418874-1/izmerenie-vremeni-vypolneniya-operacii