ActiveDelphi :: Exibir tópico - Medir tempo com precisão o laço de repetição? **Concluído**

ActiveDelphi
.: O site do programador Delphi! :.

FAQ

Pesquisar

Membros

Grupos

Registrar

Perfil

Entrar e ver Mensagens Particulares

Entrar

Medir tempo com precisão o laço de repetição? **Concluído**

ActiveDelphi - Índice do Fórum -> Delphi

Exibir mensagem anterior :: Exibir próxima mensagem

Autor

Mensagem

adriano_servitec
Colaborador

Registrado: Sexta-Feira, 30 de Janeiro de 2004
Mensagens: 17618

Enviada: Qua Jul 07, 2010 3:23 pm Assunto: Medir tempo com precisão o laço de repetição? **Concluído**

Pessoal, como faço para medir tempo com precisão o laço de repetição, e jogar num showmessage por exemplo.

Código:

For I := 1 to 10000 do
begin
faça
end;
showmessage(tempo decorrido do laço}

_________________
Jogo seu smartphone? Acesse o link e confira.
https://play.google.com/store/apps/details?id=br.com.couldsys.rockdrum
https://play.google.com/store/apps/details?id=br.com.couldsys.drumsetfree

Editado pela última vez por adriano_servitec em Qui Jul 08, 2010 10:42 pm, num total de 2 vezes

Voltar ao Topo

gilsonnrodrigues
Moderador

Registrado: Quinta-Feira, 14 de Abril de 2005
Mensagens: 9009
Localização: Governador Valadares-MG

Enviada: Qua Jul 07, 2010 4:30 pm Assunto:

use o gettickcount

Voltar ao Topo

adriano_servitec
Colaborador

Registrado: Sexta-Feira, 30 de Janeiro de 2004
Mensagens: 17618

Enviada: Qua Jul 07, 2010 5:12 pm Assunto:

gilsonnrodrigues escreveu:

use o gettickcount

Achei algo sobre este GETTICKCOUNT na net e...

Seria algo assim?

Código:

procedure TForm1.Button2Click(Sender: TObject);
var
i : integer;
Time1 : TDateTime;
begin
Edit1.Text := FloatToStr(GetTickCount);
For i := 0 to 100000 do
begin
Edit2.Text := IntToStr(i);
end;
Edit3.Text := FloatToStr(GetTickCount);
Edit4.Text := FloatToStr(StrToFloat(Edit3.Text) - StrToFloat(Edit1.Text));
//Time1 := StrToTime(Edit4.Text);
//ShowMessage(FormatDateTime('hh:mm:ss:zzz',time1));
end;

Ou assim

Código:

procedure TForm1.Button4Click(Sender: TObject);
var
i : integer;
Time1 : TDateTime;
begin
Edit1.Text := FloatToStr(GetTickCount);
i := 0;
while i < 100001 do
begin
Edit2.Text := IntToStr(i);
Inc(i);
end;
Edit3.Text := FloatToStr(GetTickCount);
Edit4.Text := FloatToStr(StrToFloat(Edit3.Text) - StrToFloat(Edit1.Text));
//Time1 := StrToTime(Edit4.Text);
//ShowMessage(FormatDateTime('hh:mm:ss:zzz',time1));
end;

Voltar ao Topo

gilsonnrodrigues
Moderador

Registrado: Quinta-Feira, 14 de Abril de 2005
Mensagens: 9009
Localização: Governador Valadares-MG

Enviada: Qui Jul 08, 2010 3:59 pm Assunto:

assim:

Código:

procedure TForm1.Button4Click(Sender: TObject);
var
i : integer;
/////////////// Time1 : TDateTime;
T : Cardinal;
begin
T := GetTickCount; //lê o tick inicial.
i := 0;
while i < 100001 do
begin
Edit2.Text := IntToStr(i);
Inc(i);
end;
Edit4.Text := FormatFloat(',0', GetTickCount - T);
end;

Voltar ao Topo

adriano_servitec
Colaborador

Registrado: Sexta-Feira, 30 de Janeiro de 2004
Mensagens: 17618

Enviada: Qui Jul 08, 2010 10:41 pm Assunto:

gilsonnrodrigues escreveu:

assim:

Código:

Blz....Muito obrigado pela ajuda amigo.
_________________
Jogo seu smartphone? Acesse o link e confira.
https://play.google.com/store/apps/details?id=br.com.couldsys.rockdrum
https://play.google.com/store/apps/details?id=br.com.couldsys.drumsetfree

Voltar ao Topo

Mostrar os tópicos anteriores:

	ActiveDelphi - Índice do Fórum -> Delphi	Todos os horários são GMT - 3 Horas
Página 1 de 1

Enviar Mensagens Novas: Proibido.
Responder Tópicos Proibido
Editar Mensagens: Proibido.
Excluir Mensagens: Proibido.
Votar em Enquetes: Proibido.