Thema: Delphi Zeit automatisch stoppen

Einzelnen Beitrag anzeigen

Benutzerbild von himitsu
himitsu
Online

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.078 Beiträge
 
Delphi 12 Athens
 
#10

Re: Zeit automatisch stoppen

  Alt 17. Mai 2010, 14:35
- 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.
Neuste Erkenntnis:
Seit Pos einen dritten Parameter hat,
wird PoSex im Delphi viel seltener praktiziert.
  Mit Zitat antworten Zitat