contador de tempo(urgentissimo)

Delphi

04/11/2003

Preciso de ajuda p/ implementar um contador em uma procedure, que calcule o tempo de execução em milesegundos. Para calcular a velocidade de ordenação do quicksort. Favor prioridade.
Obrigado!


Newkidsontheblock

Newkidsontheblock

Curtidas 0

Respostas

Pedro Dias

Pedro Dias

04/11/2003

Crie uma variavel

Tempo:TTime;

Iguale com o tempo antese de começar o processo

Tempo:=Time;

Faça o processamento

exiba, pode ser assim:

edit1.Text:=TimeToStr(Time-Tempo);


GOSTEI 0
Caninha51

Caninha51

04/11/2003

Vc pode fazer assim....

var
Tempo: Integer;
begin
Tempo := GetTickCount;
// procedimento...
Showmessage(IntToStr(GetTickCount - Tempo));
end.


Falow
Caninha51


GOSTEI 0
Beppe

Beppe

04/11/2003

Um bem mais preciso:

var
  F, S, Q: Int64;
begin
  QueryPerformanceFrequency(Q);
  QueryPerformanceCounter(S);
  ...
  QueryPerformanceCounter(F);
  Caption := FloatToStr((F - S) / Q);
end;


Ataliba


GOSTEI 0
POSTAR