Come calcolare il tempo trascorso di una funzione?

Question

Mi piacerebbe sapere come calcolare il tempo consumato per una funzione in Delphi.

Quindi volevo mostrare il tempo impiegato e confrontarlo con un'altra funzione o componente in modo da conoscere la funzione più veloce.

Answer 1

È possibile utilizzare TStopwatch dall'unità System.Diagnostics per misurare il tempo trascorso con contatore di prestazioni ad alta risoluzione del sistema.

var 
    Stopwatch: TStopwatch; 
    Elapsed: TTimeSpan; 
.... 
Stopwatch := TStopwatch.StartNew; 
DoSomething; 
Elapsed := Stopwatch.Elapsed; 

Per leggere un valore di tempo in secondi, per esempio, da un arco di tempo, fare questo:

var 
    Seconds: Double; 
.... 
Seconds := Elapsed.TotalSeconds; 

Answer 2

Offriamo le QueryPerformanceCounter e QueryPerformanceFrequency funzioni:

var 
    c1, c2, f: Int64; 
begin 
    QueryPerformanceFrequency(f); 
    QueryPerformanceCounter(c1); 
    DoSomething; 
    QueryPerformanceCounter(c2); 

    // Now (c2-c1)/f is the duration in secs of DoSomething 

Answer 3

VAR iFrequency, iTimerStart, iTimerEnd: Int64; 

procedure TimerStart; 
begin 
    if NOT QueryPerformanceFrequency(iFrequency) 
    then MesajWarning('High resolution timer not availalbe!'); 
    WinApi.Windows.QueryPerformanceCounter(iTimerStart); 
end; 


function TimerElapsed: Double; { In miliseconds } 
begin 
    QueryPerformanceCounter(iTimerEnd); 
    Result:= 1000 * ((iTimerEnd - iTimerStart)/ifrequency); 
end; 


function TimerElapsedS: string;  { In seconds/miliseconds } 
begin 
if TimerElapsed < 1000 
then Result:= Real2Str(TimerElapsed, 2)+ ' ms' 
else Result:= Real2Str(TimerElapsed/1000, 2)+ ' s'; 
end; 

Answer 4

Per il gusto di avere più possibilità per affrontare la questione, si potrebbe anche utilizzare System.Classes.TThread.GetTickCount per ottenere un'ora corrente in millisecondi per avviare il timer prima del metodo, quindi nuovamente dopo il metodo. La differenza tra questi due è ovviamente il tempo trascorso in millisecondi, che potresti trasformare in ore, secondi, ecc.

Detto questo, la proposta di David Heffernan con TStopwatch è più elegante (e più precisa?).