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

Programozással kapcsolatos cikkek / Delphi (1915 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