Zeit automatisch stoppen

[GUSU]

Also: Ich suche eine Möglichkeit die Zeit zu stoppen, während Delphi Zahlen sortiert. Ist die Sortierung fertig wird die Zeit auch automatisch gestoppt. Danach soll die gestoppte Zeit angezeigt werden, wie lange Delphi brauchte um die Zahlen zu sortieren. Wie geh ich da am ehesten ran?

Danke :-D

[Tryer]

Einfluß auf das Raum-Zeit-Gefüge kann man mit Delphi nicht nehmen, aber du kannst es mal mit "GetTickCount" oder "QueryPerformanceCounter" versuchen (Dazu gibts hier bestimmt was im Forum).

Grüsse, Dirk

[Luckie]

Mit GetTickCount vor dem Start die Zeit merken und da nach noch mal aufrufen und dann die Zeiten subtrahieren. Dann hast du die Dauer in Millisekunden.

[GUSU]

Link funktioniert nicht ;)

[Luckie]

Zitat:

Zitat von GUSU

Link funktioniert nicht ;)

Link kann mit etwas nachdenken zum Funktionieren gebracht werden.

[GUSU]

Zitat:

Zitat von Luckie

Link kann mit etwas nachdenken zum Funktionieren gebracht werden.

Hmm... wäre bestimmt möglich wenn die Server antworten würden. Ach ja, trotzdem Danke :)

[franktron]

Zitat:

Zitat von GUSU

Zitat:

Zitat von Luckie

Link kann mit etwas nachdenken zum Funktionieren gebracht werden.

Hmm... wäre bestimmt möglich wenn die Server antworten würden. Ach ja, trotzdem Danke :)

Also bei mir geht der

[GUSU]

Zitat:

Zitat von franktron

Zitat:

Zitat von GUSU

Zitat:

Zitat von Luckie

Link kann mit etwas nachdenken zum Funktionieren gebracht werden.

Hmm... wäre bestimmt möglich wenn die Server antworten würden. Ach ja, trotzdem Danke :)

Also bei mir geht der

:( Nee hier antwortet nichts, selbst wenn man über Google rein will :/

[Noedel]

Delphi-Quellcode:

...
procedure bla();
var zeit_vor, Zeit_nach, Zeit_gesamt : Int64;
begin
  zeit_vor:=GetTickCount;
  Sortiere(...);
  zeit_nach:=GetTickCount;
  Zeit_gesamt:=Zeit_nach - Zeit_vor;
  Showmessage('Sortierung dauerte '+IntToStr(Zeit_gesamt)+' ms');
end;

[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.