Mit der
Unit JclCounter aus der
JCL geht das recht einfach.
Es handelt sich um eine Kapselung von QueryPerformanceCounter und QueryPerformanceFrequency.
Hier ein Beispiel:
Delphi-Quellcode:
var
counterA, counterB : TJclCounter;
begin
StartCount(counterA);
BerechnePrimzahlen(1, 5000);
counterA.Stop;
StartCount(counterB);
BerechnePrimzahlen_Fast(1, 5000);
counterB.Stop;
ShowMessageFmt('A:%f B:%f', [CounterA.ElapsedTime, CounterB.ElapsedTime]);
StopCount(counterA);
StopCount(counterB);
end;