Ajuda Com Timer...

[einfo]

Olá,

Estou precisando fazer um timer exclusivo para contar e mostrar quanto tempo uma função que eu desenvolvi demora.

Pensei em algo bobo como

timer.enabled :=True;

EntrarNaFuncao();

timer.enabled := False;

Porém isso não funciona enquanto o programa está executando a função ele não entra no timer nenhuma vez. Minha função demora alguns segundos ou milisegundos para ser executada como posso saber exatamente quanto tempo ela demorou, mostrando no form esse tempo decorrrendo ?!?

Obrigado,

[]'s

Eduardo

[Jhonas]

Voce tem tirar a diferença entre o inicio e o fim do tempo decorrido ou seja, ao iniciar a função voce dispara o cronometro do time ex:

definir variaveis:

temp, temp1, temp2 : TTime;

temp1 := time(); // inicia a contagem de tempo para calculo do tempo gasto para execução

ao teminar a função voce dispara novamente

temp2 := time(); // Termina a contagem de tempo para calculo do tempo gasto para execução

depois e so calcular a diferença entre o inicio e o fim

temp := (temp2 - temp1);

Label1.Caption := timetostr(temp); // mostra quanto tempo levou para executar a função ou rotina