Временная задержка - Общие вопросы Delphi

zleyshiy · 13.08.2009, 16:01

Кто знает, как не прибегая к таймерам сделать задержку между командами? Есть ли может какая-нибудь команда спецовая?

Пепел Феникса · 13.08.2009, 16:04

Sleep(1000); ждем секунду

IT-man · 13.08.2009, 16:04

SLEEP( 1000)

zleyshiy · 13.08.2009, 17:15

Спасибо, мужики!

Баламут · 14.08.2009, 08:15

А мне вместо SLEEP более импонирует вот такая процедурка. Так хоть программа в целом не тормозит.

Код:

procedure Delay(ms: CARDINAL);
var
   n: cardinal;
begin
  n := GetTickCount + ms;
  while getTickCount <= n do Application.ProcessMessage;
end;

13.08.2009, 16:01	#1
zleyshiy Новичок Джуниор Регистрация: 15.02.2009 Сообщений: 2	Временная задержка Кто знает, как не прибегая к таймерам сделать задержку между командами? Есть ли может какая-нибудь команда спецовая?

13.08.2009, 16:04	#2
Пепел Феникса Старожил Регистрация: 28.01.2009 Сообщений: 21,000	Sleep(1000); ждем секунду Хорошо поставленный вопрос это уже половина ответа. \| Каков вопрос, таков ответ. Программа делает то что написал программист, а не то что он хотел. Функции/утилиты ждут в параметрах то что им надо, а не то что вы хотите.

14.08.2009, 08:15	#5
Баламут Баламучу слегка... Участник клуба Регистрация: 01.11.2006 Сообщений: 1,585	А мне вместо SLEEP более импонирует вот такая процедурка. Так хоть программа в целом не тормозит. Код: `procedure Delay(ms: CARDINAL); var n: cardinal; begin n := GetTickCount + ms; while getTickCount <= n do Application.ProcessMessage; end;`

13.08.2009, 17:15	#4
zleyshiy Новичок Джуниор Регистрация: 15.02.2009 Сообщений: 2	Спасибо, мужики!