var
inicio, fim: String;
begin
inicio := FormatDateTime('hhmmssmm', now);
// procedimento
// procedimento
// procedimento
fim := FormatDateTime('hhmmssmm', now);
Label1.caption := IntToStr(StrToInt(fim) - StrtoInt(inicio)) + '
milissegundos para a execução da tarefa';
end;
//obs: Altere os tipos das variaveis conforme sua necessidade;
// obs2: manere no uso do timer;
Em 22 de julho de 2010 10:38, Desenvolvimento Sisponto - Anderson
desenvolvime...@sisponto.com.br escreveu:
não use timer.
crie uma variável do tipo cardinal, e jogue nela o valor da função
GetTickCount.
No fim, faça uma releitura do gettickcount e subtraia a ultima pela
primeira. vc vai ter o tempo em milisegundos
assim:
var
inicio : Cardinal;
Fim : Cardinal;
begin
inicio := gettickcount;
(...)
fim := gettickcount;
label1.caption := inttostr(fim-inicio)+'ms';
end;
o gettickcount retorna o tempo em milisegundos em que o systema foi
startado, até o limite de 49,7 dias...
- Original Message -
From: Omar Marques
To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br
Sent: Thursday, July 22, 2010 10:18 AM
Subject: [delphi-br] Ref. Timer Milissegundos
Salve amigos(as) Delphianos,
Estou com uma questão por resolver. Estou precisando colocar um timer que
controlará o tempo decorrido do início de uma tarefa em milissegundos.
Fiz isto usando um timer com interval = 1, mas está dando refresh direto no
componente e além disso, parece que ele corta os outros eventos, por
exemplo,
tento pressionar um Alt+F que fecha a tela abrindo um menu, mas não funfa
quando
este timer está enabled.
Qual seria a saída ? Thread ? Tem algum exemplo ai ? Alguém já passou por
situação semelhante ?
Uso Delphi 5 Enterprise
Abraço e obrigado a todos.
Ats.
Omar M. Haddad
Analista de Sistemas
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
--
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:
delphi-br-ow...@yahoogrupos.com.br
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:
delphi-br-unsubscr...@yahoogrupos.com.br
* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
