Profiling

[Cyf]

Da das in letzter Zeit immer mal gefragt wurde, hier eine einfache Klasse, um recht genua Zeit zu messen, z.B wieviel Zeit Code zur Ausführung benötigt. Die Unit sollte nicht zur Zeitmessung in einer Anwendung, die nur ungenaue Zeitangaben (z.B. zwecks Anzeigen von ganzen Sekunden) benötigt, angewendet werden, da hier

Delphi-Quellcode:

GetTickCount;

besser geignet ist (ressourcenschonender).
Die Klasse kapselt die QueryPerformance-Funktionen.

[Edit]Update