No hay respuestas en este tema

[Rantor777]

[TRUCO DELPHI] Calcular la velocidad de una Rutina.

delphi

var
  Freq, StartCount, StopCount: Int64;
  TimingSeconds: real;
begin
  QueryPerformanceFrequency(Freq);
  QueryPerformanceCounter(StartCount);
 
  // Ejecutar el procedimiento o rutina que se quiere medir
 
  QueryPerformanceCounter(StopCount);
  TimingSeconds := (StopCount - StartCount) / Freq;
 
  // muestra el resultado: ... 
end;

@Sir.Dev.A.Lot   Pagado tus 10!   

 

Saludos!