Buscar

Aguardando um determinado numero de segundos

Código

Procedure TForm1.Delay(Tempo: Word);
var
x1: Double;
begin
x1:= now;
repeat until ((now-x1)*86400) > Tempo;
end;
Observação:
A dica acima serve apenas para as versões do Delphi que não possuem a função Sleep.
Ex:
Sleep(1000); //Aguarda 1 segundo

willian luiz andrade

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%

Detalhes da dica

Categoria: Object pascal
Adicionada dia: 21/09/04
Por: Will_Fateb
Visualizada: 1664 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009