Buscar

Aguardar um determinado número de segundos

Código

Aguardar um determinado número de segundos
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

Publicidade

Vote na dica




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

Detalhes da dica

Categoria: Object pascal
Adicionada dia: 03/02/05
Por: Ricardo L. S.
Visualizada: 11643 vezes

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