Entwickler-Ecke

Delphi Language (Object-Pascal) / CLX - Zeitermittlung von Quick und BubbleSort


mrblaster[cu] - Mi 25.06.03 14:49
Titel: Zeitermittlung von Quick und BubbleSort
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 :D

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

grx martin


Thomas_1110 - Mi 25.06.03 20:53
Hallo

Wie wärs mit der Api Funktion Gettickcount


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 - Do 26.06.03 01:02
Es geht noch genauer wenn du die Zeit stoppst, wie lange der Aufruf von getTickCount dauert.

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


Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!