nx chronos
1.0.0
TStopwatchと同様の機能を備えたクロスプラットフォームストップウォッチですが、非常に正確なプロセスサイクルやスレッドサイクルなど、リアルタイム、プロセス時間、スレッド時間の異なる時間を測定できます。
サイクルを測定している場合、ナノ秒、ミリ秒、または秒に変換できない生のElapsed値のみを取得できます。
ProcessCyclesとThreadCycles測定モードは、Windows Vistaと新しいOSのみがサポートされています。
var
ts: TNxChronometer;
begin
ts := TNxChronometer.Start(ProcessTime);
// code to be measured
...
ts.Stop;
Writeln( ' Process time: ' , ts.ElapsedMs);
end ;https://dalija.prasnikar.info