Zeit automatisch stoppen

[himitsu]

- Erstmal kommt es darauf an, wie lange die Messung dauern soll
(GetTickCount und Now ist recht einfach zu nutzen, aber die Messnug sollte mindestens mehrere 100 Millisekunden andauern, da die Genauigkeit bei 15-20 ms liegt)

- dann auch noch darauf, wie genau die Messung sein soll
(wie gesagt, GetTickCount und Now haben eine gewisse Tolleranz)

- und sogar auf die Delphi-Version kommt es an (also was man alles nutzen kann)

im Prinzip geht es immer so: [edit] siehe Noedel

Delphi-Quellcode:

Start := aktuellZeit;
//messung
Ende := aktuelleZeit;
Dauer := Ende - Start;

Delphi-Quellcode:

Dauer := GetTickCount;
//messung
Dauer := GetTickCount - Dauer;
// Dauer anzeigen ... Zeit in Millisekunden

PS: Es dürfte in der DP (vielleicht sogar in der CodeLil) einige Codes/Klassen/Komponenten zur Zeitmessung existieren.

Zum Debuggen/Optimieren von Code nehme ich seit Jahren eigene Codes
> das aktuellste versteckt sich da mit in dem Thread
http://www.delphipraxis.net/internal...153808#1153808

Delphi-Quellcode:

Timer.Init;

Timer.Start(1);
// hier das zu Messende
Timer.Stop(1);

Timer.Show;

Der Code ist allerdings auf viele und auch kurze Messungen optimiert
und verlangt Funktionalitäten, welche ab Delphi 2006 (TDE) vorhanden sind.
(läßt sich aber auch alles in eine Klasse verpacken und als Objekt und mit "normalen" Methoden wären auch mehrere Timer-Objekte möglich)
... wie gesagt, in dieser Fassung ist der Code für's Debuggen optimiert und mißt mit 'ner Auflösung von fast 'ner Mikrosekunde.