Fórum contador de tempo(urgentissimo) #192798
04/11/2003
0
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!
Obrigado!
Newkidsontheblock
Curtir tópico
+ 0
Responder
Posts
04/11/2003
Pedro Dias
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);
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);
Responder
Gostei + 0
04/11/2003
Caninha51
Vc pode fazer assim....
var
Tempo: Integer;
begin
Tempo := GetTickCount;
// procedimento...
Showmessage(IntToStr(GetTickCount - Tempo));
end.
Falow
Caninha51
var
Tempo: Integer;
begin
Tempo := GetTickCount;
// procedimento...
Showmessage(IntToStr(GetTickCount - Tempo));
end.
Falow
Caninha51
Responder
Gostei + 0
04/11/2003
Beppe
Um bem mais preciso:
Ataliba
var F, S, Q: Int64; begin QueryPerformanceFrequency(Q); QueryPerformanceCounter(S); ... QueryPerformanceCounter(F); Caption := FloatToStr((F - S) / Q); end;
Ataliba
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)