задержка в 1 сек делфи

[Bicdibus]

как организовать задержку в 1 секунду на делфи

 

[o_nix]

sleep(1000);

 

[Any_Key]

Пример реализации своего аналога sleep

procedure gsleep(interval:integer);
var
settime:integer;
begin
settime:=GetTickcount+interval;
while (settime<GetTickcount) do continue;
end;

Иногда в потоках sleep становится невероятным злом, вот такие кривые костыли помогают.
PS возможны ошибки так как писал из головы а на делфе практически не пишу уже.

 

[xpert13]

Эта строчка - зло:

while (settime<GetTickcount) do continue;

Будет сильно грузить процессор, лучше уже так:

while (settime<GetTickcount) do
begin
  sleep(25);
end;

 

[startus]

Лучше таки собітие на таймер ставь.
В крайнем случае sleep(1000) но прога тупо повисает на данный промежуток времени.
Лечится этим: Application.Processmessages