Mostrar na Tela o Tempo de uma Procedure..

Delphi

19/11/2003

blz...
como faço para que apareça na Tela o Resultado do tempo em segundos que uma Procedure demorou para terminar???

obrigado.


Giovani

Giovani

Curtidas 0

Respostas

Marcelo Saviski

Marcelo Saviski

19/11/2003

var
  T: Cardinal;
begin
  T := GetTickCount;
  FazAlgumaCoisa;
  T := GetTickCount - T;
  ShowMessageFmt(´Tempo levado para executar a função: ¬f´, [T/1000]);
end;


precisão de milisegundos


GOSTEI 0
POSTAR