Zeitermittlung von Quick und BubbleSort

mrblaster[cu] · Hält's aus hier Beiträge: 1

hi leute und liebe delphigemeinde...
hab mir letzt selber einen quick und bubblesort programmiert.
und nun wollte ich mit hilfe des TTimer die Zeit ermitteln.
Ich lade in ein memo feld eine txt datei mit verschiedenen wörtern die dann sortiert werden sollen. in der zeit wo sortiert wird, soll die zeit in einem lable feld wieder gegeben werde. das soll für beide sort´s geschehen.

will einfach mal gucken wer um wieviel sekunden schneller ist

ich hoffe ihr wisst was ich meine..
danke schonmal für die hilfe

grx martin

Thomas_1110 · Beiträge: 22 Win Vista Delpi 7 Personal

Hallo

Wie wärs mit der Api Funktion Gettickcount

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:

var 
    Zeit: integer;
...
Zeit:= Gettickcount; // dort wo die Zeitmessung gestartet werden soll
...
Zeit:= Gettickcount-Zeit; // Zeit in ms

Gruß Thomas

wieczo · Beiträge: 48 D6 Pers, TP 7.0

Es geht noch genauer wenn du die Zeit stoppst, wie lange der Aufruf von getTickCount dauert.

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:

var 
    Zeit1, Zeit2, Aufruf, Dauer: integer; 
    
... 
Zeit:= getTickCount; // dort wo die Zeitmessung gestartet werden soll 
Aufruf := Zeit - getTickCount; //Aufrufdauer von getTickCount
... 
Zeit2:= getTickCount; 
Dauer := Zeit2 - Zeit1 - 2*Aufruf// Zeit in ms

Ist glaub ich nicht der richtig genaue Code aus dem alten Delphi-Forum, kommt aber nah ran.

Ciao Thomas

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme