---

Hejsa

Jeg har behov for at lave tidsmåling på forskellige søge og
sorteringsalgoritmer i mit program. Hvordan kan dette løses?

Jeg har forestillet mig noget med at starte en timer, når man kalder
funktionen, og stopper den lige inden funktionen forlades. Er dette den
bedste måde og hvordan gøres det, eller er der et alternativ... Kan man evt.
beregne det på antal brugte CPU-cykluser.

Daniel

P.s. funktionen skal helst være meget præcis, da det jo kun tager et brøkdel
af et sekund at lave en sortering på en relativ lille datamængde.

---

"// Overby" <overby@sport.dk> wrote in message
news:3bea80ff$0$2000$edfadb0f@dspool01.news.tele.dk...
> Hejsa
>
> P.s. funktionen skal helst være meget præcis, da det jo kun tager et
brøkdel
> af et sekund at lave en sortering på en relativ lille datamængde.
>
Hvis dine datamængder er så små, betyder det måske ikke så meget? Ellers
udfør sorteringen en masse gange og korrigerer tidstagningen tilsvarende.
Generelt skal du anvende gettickcount (millisekunder) eller kigge nærmere
her: http://www.prodelphi.de/

hilsen
Uffe

---

Har løst problemet ved at oprette to TDateTime og gemmer den aktuelle tid
vha. now. Jeg gemmer så tiden lige før og lige efter jeg kalder modulet. Jeg
bruger så DecodeTime til at få millisekunder med....

Daniel

---

Hej Daniel
Siden din måling skal være meget præcis( også for korte tider),
har du faktisk ikke løst dit problem.
Prøv at sammenligne resultatet fra din løsning med GetTickCount
løsningen som foreslået tidligere i tråden.
Yngve

"// Overby" <overby@sport.dk> skrev i en meddelelse
news:3beaaa3e$0$25405$edfadb0f@dspool01.news.tele.dk...
> Har løst problemet ved at oprette to TDateTime og gemmer den aktuelle tid
> vha. now. Jeg gemmer så tiden lige før og lige efter jeg kalder modulet.
Jeg
> bruger så DecodeTime til at få millisekunder med....
>
> Daniel
>
>

---

> Siden din måling skal være meget præcis( også for korte tider),
> har du faktisk ikke løst dit problem.
> Prøv at sammenligne resultatet fra din løsning med GetTickCount
> løsningen som foreslået tidligere i tråden.
> Yngve

Jeg kan ikke finde GetTickCount i Delphi 4 standard.... Jeg skal bruge
tidsmåling til at foretage måling over tidsforbruget for forskellige søge og
sorteringsalgoritmer...

Daniel

---

Skulle GetTickCount virkelig mangle i Delphi 4 standard ????.
GetTickCount er jo API kald, og skulle være
gjort grydeklart i windows.pas.
Yngve

NB.
Hvad fejl får du f.eks. på denne kode?

uses windows

procedure TestTick;
var
MilliSekSidenWinStart : longword;
begin
MilliSekSidenWinStart := GetTickCount;
end;


**Klip**
> Jeg kan ikke finde GetTickCount i Delphi 4 standard.... Jeg skal bruge
> tidsmåling til at foretage måling over tidsforbruget for forskellige søge
og
> sorteringsalgoritmer...
>
> Daniel
>
>
>

---

> Hvad fejl får du f.eks. på denne kode?

Ingen... det virker fint nok... Jeg kunne bare ikke finde info om det i
hjælpen.... Jeg havde ingen rigtig anelse om hvordan jeg skulle gribe det
an....

---

Den er deklareret således i windows.pas, så prøv at tilføje windows i din
uses liste. En mulighed er også at den er udeladt af D4 standard.

function GetTickCount: DWORD; stdcall;
{$EXTERNALSYM GetTickCount}

Hilsen
Uffe

"// Overby" <overby@sport.dk> wrote in message
news:3bebe9e0$0$249$edfadb0f@dspool01.news.tele.dk...
> > Siden din måling skal være meget præcis( også for korte tider),
> > har du faktisk ikke løst dit problem.
> > Prøv at sammenligne resultatet fra din løsning med GetTickCount
> > løsningen som foreslået tidligere i tråden.
> > Yngve
>
> Jeg kan ikke finde GetTickCount i Delphi 4 standard.... Jeg skal bruge
> tidsmåling til at foretage måling over tidsforbruget for forskellige søge
og
> sorteringsalgoritmer...
>
> Daniel
>
>
>