Rubem Obrigado, funcionou perfeitamente!
Att Marcos Ferreira -----Mensagem original----- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Rubem Nascimento da Rocha Enviada em: terça-feira, 16 de agosto de 2005 08:50 Para: delphi-br@yahoogrupos.com.br Assunto: RE: [delphi-br] [maf] Timer.Interval Prioridade: Alta Use a função GetTickCount() da API do Windows. Pegue o valor retornado por esta função antes e depois da sua rotina ter sido executada, e depois diminua o tempo final medido pelo tempo inicial medido. O peixe foi pescado! []s >From: "Marcos Ferreira" <[EMAIL PROTECTED]> >Reply-To: delphi-br@yahoogrupos.com.br >To: <delphi-br@yahoogrupos.com.br> >Subject: [delphi-br] [maf] Timer.Interval >Date: Tue, 16 Aug 2005 00:12:16 -0300 > >Pessoal > > > >Preciso saber com exatidão o tempo que uma função demora para ser >executada, >entre a leitura do arquivo e a gravação do texto. Só que ela demora menos >de >1 segundo, então não sei como medir com exatidão. Gostaria de chegar até a >casa do milésimos. O que eu fiz foi colocar um timer com intervalo de 1, já >que 1000 representa 1 segundo e dentro do timer vou somando 1 a uma >variável. No começo da função zero a variável e habilito o timer e no fim >da >função vou verificar o valor da variável e ela continua zerada. Será que >por >ser muito rápido a execução, não da tempo do timer entrar em funcionamento? > > > >Estou colocando abaixo parte do código fonte! Notem que o timer2 é ativado >dentro do timer0 > > > > > >Att, > > > >Marcos Ferreira > > > >procedure TfrmLiveTiming.Timer0Timer(Sender: TObject); > >begin > > //LEITURA ARQUIVO TEMPO.TXT > > intTransmissao := 0; > > Timer2.Interval := 1 > > Timer2.Enabled := true; > > try > > > > except > > > > end; > > > > Timer2.Enabled := false; > >end; > > > >procedure TfrmLiveTiming.Timer2Timer(Sender: TObject); > >begin > > intTransmissao := intTransmissao + 1; > >end; > > > >[As partes desta mensagem que não continham texto foram removidas] > _________________________________________________________________ MSN Messenger: converse com os seus amigos online. http://messenger.msn.com.br -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos <*> Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ <*> Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html