TStopwatch

[hathor]

http://docwiki.embarcadero.com/Libra...opwatch.Create

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
   sw : TStopWatch;
   elapsedMilliseconds : INT64;
 begin
   sw := TStopWatch.Create() ;

     sw.Start;
     sleep(1000); //nur test
     sw.Stop;

     elapsedMilliseconds := sw.ElapsedMilliseconds;
     Memo1.Lines.Add(INTTOSTR(elapsedMilliseconds));
 end;