TID

download et component her www.delphipages.com

Er der en speciel komponent, som du tænker på?

Prøv at se denne her:

http://vclcomponents.com/search.asp?ID_CATEGORY=181&PGIX=2

Du kan også kigge på denne her:

http://www.delphi3000.com/articles/article_430.asp

btw. 1000 del sec = msec ...

kig på funktionerne :

QueryPerformanceCounter
QueryPerformanceFrequency


prøv den her :

En form med to knapper og en label ...


var
  Start, Stop, Freq: Int64;

procedure TForm1.Button1Click(Sender: TObject);
begin
  QueryPerformanceCounter(Start);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  QueryPerformanceCounter(Stop);
  QueryPerformanceFrequency(Freq);
  Label1.Caption := Format(\'Time passed %1.8f Seconds\', [(Stop - Start) / Freq]);
end;


Jens B

Sorry torbenkoch, ved godt du kom først men jeg er ikke meget til kompunenter;

Tusind tak Jens