Delphi: Futási idő mérése

Programozással kapcsolatos cikkek / Delphi (741 katt)

Ha Delphiben meg szeretnénk mérni, hogy egy program vagy egy programrész mennyi ideig fut, akkor azt a következő módon tehetjük meg:

program Stopper;

{$APPTYPE CONSOLE}

uses
SysUtils;

var startTime : TDateTime;
endTime : TDateTime;

begin
startTime:=Now;

// Itt csinalunk valamit...
Sleep(510);

endTime:=Now;

Writeln('Az eltelt ido: ' +
FormatDateTime('hh:nn:ss.zzz', endTime - StartTime));

Readln;
end.



Ha további információra szeretnénk szert tenni, akkor érdemes elolvasni a következő cikket:

http://delphi.about.com/od/windowsshellapi/a/delphi-high-performance-timer-tstopwatch.htm

Előző oldal Kapitány