[Delphi]Tempo de execução

[~OwneR~ 8]

Olá pessoal, hoje eu vou mostrar pra vocês como calcular quanto tempo seu programa levou para executar tal função.

 

Exemplo: Eu vou fazer uma consulta num banco de dados e quero saber quanto tempo levou para terminar a consulta.

É bem fácil, basta armazenar o GetTickCount no início da função, e outro no fim. Em seguida faça Fim-Início e você terá o tempo em milisegundos.

 

Simples não? Mas que tal aprimorar um pouco isso, transformando os milisegundos em HH:MM:SS.sss? Pra isso iremos usar essa função:

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

Pra usá-la podemos fazer assim:

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

O importante é armazenar o GetTickCount no início em algum lugar e fazer a comparação no final, só isso.

 

div = Divisão inteira (sem casas decimais)

mod = Resto da divisão

 

#Dica:

Você pode alterar o formato que será salvo, removendo alguma parte (como os milisegundos ou horas) e alterando o texto, pra isso iremos editar essa parte:

Result := Format('%.2d:%.2d:%.2d.%.3d',[Hor,Min,Sec,MSec]);

 

Por exemplo, eu quero que mostre assim: HH Hora(s) MM Minuto(s) SS Segundo(s)

Então seria: Result := Format('%.2d Hora(s) %.2d Minuto(s) %.2d Segundo(s)',[Hor,Min,Sec]);

 

É isso pessoal, até mais :nice:

[luxfer 0]

excelente idéia cara

eu nunca tinha pensado nisso

usando um while podemos executar um código pesado apenas em PC's que irão conseguir executar esse código, evitando travamentos.

[Owner 7]

Muito bom ~OwneR~ !

é muito bom também para se demorar demais, tipo uns 10 minutos, o programa fechar.

Exemplo, talvez demora demais, pode ser um erro, e ele acusa uma mensagem e fecha.

Ou pode fazer um limite de tempo que um usuário pode usar o processo.

Muito bom ~OwneR~ continue assim.

Abrasz ! :amor: