Tiempo de ejecucion de un proceso

[[AgustinOrtu]]

Hola,

Si bien este tema ya se trato varias veces, simplemente queria presentar una variante para calcular el tiempo de ejecucion de un proceso en una sola linea de codigo; a mi no me gusta el tener que agregar "las lineas magicas" al inicio y al final del proceso, y me gusta escribir poco codigo y tener algo reusable

Asi que cree una clase que con una sola funcion estatica ejecuta un proceso (TProc) una determinada cantidad de veces y luego retorna el tiempo de ejecucion total:

En este enlace esta el codigo fuente completo

Depende de otra unidad que tambien se encuentra en mi repo, un cronometro, que basicamente usa el viejo truco del "QueryPerformanceTime"


Ejemplo de uso:

Código Delphi [-]

uses
  RTL.Benchmark;

procedure TForm1.Button1Click(Sender: TObject);
const
  ITERATIONS = 5;
var
  Time: TBenchmarkTime: // tipo record con los milisegundos y segundos que demoro la ejecucion total
begin
  Time := TBenchmark.Benchmark(ITERATIONS,
  procedure
  begin
    { foo }
  end);

  // otra forma
  Time := TBenchmark.Benchmark(1, AlgunProceso);

  ShowMessageFmt('ms: %d - secs: %d', [Time.MSecs, Time.Secs]);
end;

De esta manera simplemente agrego un boton cualquiera en la aplicacion, envio como parametro el proceso que quiero ejecutar, y ya tengo el tiempo para informar; tambien puedo controlar la cantidad de veces que quiero que se ejecute

Saludos

[Casimiro Notevi]

Código Delphi [-]
Time := TBenchmark.Benchmark(ITERATIONS,   
  procedure   
  begin     
    { foo }   
  end);

¿Eso se puede hacer en alguna versión nueva de Delphi, o es un error?

[[AgustinOrtu]]

Empezado por Casimiro Notevi

Código Delphi [-]
Time := TBenchmark.Benchmark(ITERATIONS,   
  procedure   
  begin     
    { foo }   
  end);

¿Eso se puede hacer en alguna versión nueva de Delphi, o es un error?

Se puede, es la sintaxis para métodos anónimos. A partir de Delphi 2009

[dec]

Hola,

Muy interesante. Gracias por compartirlo Agustín.

[Casimiro Notevi]

Empezado por AgustinOrtu

Se puede, es la sintaxis para métodos anónimos. A partir de Delphi 2009

Estupendo, gracias

Empezado por dec

Hola,Muy interesante. Gracias por compartirlo Agustín.

Dec, ¿no te queda un poco grande el gorro?