Medir tiempo de ejecución usando Timer (Problemas)

[[Lepe]]

Con GetTickCount no necesitas un Timer. Aquí tienes un ejemplo sacado de Ians Marteens "midiendo el tiempo con precisión", adaptado por mí:

Código Delphi [-]
type


   TPerformanceTime = Class(TObject)
  private
    FElapsed: Int64;
    FStart, FFinish, FFrec:Int64;
    function GetFElapsedTime: String;
    public
      procedure Start;
      procedure Finish;
      property ElapsedTime : String read GetFElapsedTime;

    end;
implementation

{ TPerformanceTime }

  const MiliSegundos = 1000;

procedure TPerformanceTime.Finish;
begin
  QueryPerformanceCounter(FFinish);
  FElapsed := (FFinish - FStart) * MiliSegundos div FFrec;
end;

function TPerformanceTime.GetFElapsedTime: String;
begin
  result := Format(' %d Milisegundos',[FElapsed]);
end;

procedure TPerformanceTime.Start;
begin
   QueryPerformanceFrequency(FFrec);
   QueryPerformanceCounter(FStart);
end;

Ejemplo de uso:

Código Delphi [-]
var Counter : TperformanceTime;
begin
  Counter := TPerformanceTime.Create;
  Counter.Start;
  // algoritmo a medir el tiempo;
  Counter.Finish;
  ShowMessage(Counter.ElapsedTime);
  Counter.Free;
end;

Como el cronómetro usado es del ordenador, no importa si nuestra aplicación se queda congelada.

Saludos

[Bauhaus1975]

Muchas gracias. Voy a intentar lo que me has explicado.
Ya te comento si tengo algún problema.

Un saludo.

[Arsenio]

Empezado por Lepe

Con GetTickCount no necesitas un Timer. Aquí tienes un ejemplo sacado de Ians Marteens "midiendo el tiempo con precisión", adaptado por mí...

Muchas gracias Lepe, justo estaba buscando algo simple pero preciso para medir el tiempo, me vino muy bien tu clase, se agradece...

[rgstuamigo]

Yo solo utilizaria la funcion TimeGetTime (ideal para lo que necesitas)de la unidad MMSystem ,mas o menos de esta manera:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var dwTiempo: DWord;
begin
    dwTiempo:=TimeGetTime;//aqui  se inicia
    //hago lo que tengo que hacer;
    ...
    ...
    ...
    //al final muestro el tiempo
   ShowMessage( 'Tiempo: '+IntToStr(TimeGetTime-dwTiempo)+' milisegundos' );
   //sencillo optimo y practico
end;

Edito:Esto es sin Timer y sin ninguna Clase extra.
y es mas precisa que GetTickCount.

[brandolin]

Hola, te recomiendo que en varias partes de tu codigo, por ejemplo dentro de un bucle, uses la instruccion "Applicattion.proccessmessage;"
Esta instruccion hace que windows procese los mensajes pendientes y da el efecto que la aplicacion no se congela. Asi se pueden ejecutar las instrucciones del timer.
Yo lo uso asi y me funciona.

[rgstuamigo]

Empezado por brandolin

Hola, te recomiendo que en varias partes de tu codigo, por ejemplo dentro de un bucle, uses la instruccion "Applicattion.proccessmessage;"
Esta instruccion hace que windows procese los mensajes pendientes y da el efecto que la aplicacion no se congela. Asi se pueden ejecutar las instrucciones del timer.
Yo lo uso asi y me funciona.

Apuntada tu sugerencia amigo Brandolin pero creo que haciendolo con un timer no es muy Optimo.
Saludos...

[juanelo]

Aqtime es lo mejor que he visto y usado para medir tiempos de ejecucion y buscar cuellos de botella o procesos inecesariamente lentos.
Saluos

[Bauhaus1975]

Pues me alegro que este post, con cuatro años de vida nos haya ayudado tanto.
Saludos.