Stopuhr/Laufzeit

[huefte]

Hallo Zusammen

bin eigentlich noch ein anfänger, hoffe aber dass ihr mir helfen könnt! In der Schule nehmen wir Sortier-Algorithmen ducrh. Als Zusatz will ich nun in mein Programm, das 4 Algorithmen umfasst, eine Funktion einbauen, die anzeigt wie lange das Sortieren gedauert hat! Beispielsweise in einem Edit-Feld ausgedruckt wird, oder ein Label sichtbar wird, in dem die Zeit steht.

Vielen Dank für eure Hilfe

[jfheins]

Nimm eine Variable Zeit, mach vor dem algo ein Zeit := Gettickcount; und am ende sowas wie showmessage (inttostr(GettickCount - zeit));
(in ms)

[huefte]

Sowas hab ich schon versucht!

Mein COde sieht jetzt so aus

Code:

Zeit:=GettickCount;
Quick(links,rechts);
Endzeit:=(GettickCount-Zeit);
Showmessage(IntToStr(Endzeit)+'ms');

Er zeigt mir "0 ms" an.... !?!

[jfheins]

Vieleicht hast du zuwenige Sachen zum Sortieren ???

[huefte]

es sind nur 10. ich machs dann halt mal mit 100!

[huefte]

ist immer noch bei 0 ms! habs jetzt mal mit 100 versucht

[jfheins]

tztztz ... um gute Erfebisse zu bekommen, solltest du das schon so mit min. 10.000 machen ...

Dann erkennst du auch Unterschiede in den Zeiten der versch. Sortieralgos ...

[huefte]

auch bei 100000 immer noch 0!

[jfheins]

:shock: Und er sortiert auch ????

Dann mach ma:

Delphi-Quellcode:

queryperformancecounter (anfang);
// ...
queryperformancecounter (ende);
queryperformancefrequency (frq);
zeit = (ende - anfang) / frq;

[whiteshark]

probier es mal so:

Delphi-Quellcode:

var summe, von, bis:integer;
begin
von:=gettickcount;
quick (..);//deine Sortierfunktion
bis:=gettickcount;
summe:=bis-von;
LabelZeit:=strtoint(summe)+ 'ms'.
end;

wir haben das zur Zeit auch in der Schule ;-)