Fórum Mostrar na Tela o Tempo de uma Procedure.. #195995

19/11/2003

0

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

Responder

Posts

19/11/2003

Marcelo Saviski

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


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar