|
Registriert seit: 4. Dez 2003
Ort: Cottbus
222 Beiträge
Delphi 2005 Personal
|
Re: Stopuhr/Laufzeit
5. Mär 2005, 15:37
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 
Men are born ignorant, not stupid; they are made stupid by education. - Bertrand Russell
I cannot teach anybody anything, i can only make them think. - Socrates
|