---

Hej

Er der nogen der har en ide til hvordan man laver et stopur med
millisekunder?

Hilsen Erik

---

"Erik Hostrup" <erik@hostrup.dk> skrev i en meddelelse
news:3e4f9ace$0$164$edfadb0f@dread14.news.tele.dk...
> Hej
>
> Er der nogen der har en ide til hvordan man laver et stopur med
> millisekunder?

Hvordan skal stopuret startes og stoppes, ved tryk på nogle knapper eller?

Men hvad med en thread som benyter GetTickCount og som så opdatere noget på
main formen, måske kun for hver 100 ms for at undgå at mainformen helt dør,
når man så stopper tiden kan threaden retunere den nøjagtige tid.

/HK

---

"Erik Hostrup" <erik@hostrup.dk> wrote in message
news:3e4f9ace$0$164$edfadb0f@dread14.news.tele.dk...
> Er der nogen der har en ide til hvordan man laver et stopur med
> millisekunder?

Kig evt. på QueryPerformanceCounter og QueryPerformanceFrequency...
Følgende kode kan måske inspirere dig lidt:

procedure TForm1.Button1Click(Sender: TObject);
var
freq : int64;
count1, count2 : int64;
begin
QueryPerformanceFrequency( freq );
QueryPerformanceCounter( Count1 );
sleep(100);
QueryPerformanceCounter( Count2 );
showmessage ( inttostr((count2-count1)*1000 div freq) + ' msec' );
end;

Mvh.
/Jesper Dam