Скачать: CL | DM;

DELAY   Найти похожие ветки 

← →
YuriyOL   (2002-04-23 13:14) [0]

Есть ли аналог сабжа в Делфях?

---

← →
VictorT ©   (2002-04-23 13:18) [1]

Sleep

---

← →
DeMoN-777 ©   (2002-04-25 17:05) [2]

Вот так попробуй

procedure Delay(Zadergka: Longint);
var
FirstTickCount, Now: Longint;
begin
FirstTickCount := GetTickCount;
repeat
Application.ProcessMessages;
{ allowing access to other controls, etc. }
Now := GetTickCount;
until (Now - FirstTickCount >= Zadergka) or (Now < FirstTickCount);
end;

---

← →
Johnmen ©   (2002-04-25 17:22) [3]

>DeMoN-777 © : Срисовано с из Rx"овской vclutils.pas ;-))))))

---

← →
Anatoly Podgoretsky ©   (2002-04-25 17:27) [4]

Johnmen © (25.04.02 17:22)
Именно, но по крайней мере оно хоть политкорректно, по сравнению с теми самопальными советами, которые тут проскакивали. И после этого обычно говорят Windows Must Die, зависает на GetTickCount

---

← →
-=CrazyFish=- ©   (2002-04-25 17:58) [5]

>Anatoly Podgoretsky
Успел заметить, что вам близка эта тема

---

← →
Anatoly Podgoretsky ©   (2002-04-25 18:07) [6]

Так часто приводят неверный ответ с GetTickCount
А мне она вообще то не близка, не вижу смысла в холостую крутить циклы, греть процессор, просто она весьма знакома.

---

← →
cok ©   (2002-04-25 18:20) [7]

x:=0;
for i:=1 to 1000 do
x:=x+1;

Проходит 1 секунда.

---

← →
Donal_Graeme   (2002-04-25 18:26) [8]

2 cok:

на какой машине? :-)

---

← →
Malder ©   (2002-04-25 20:00) [9]

cok, хех =))) просто здорово. По моему, даже P100 это цикл выполнит раз в 100 быстрее. Всего то 500 раз увеличить значение переменной на еденицу. Да тут милисекунды пройдут. И вообще, интересно, как вы подсчитывали время выполнения этой операции ? =)


и еще. Какой смысл внутри FOR писать x:=x+1; ?

---

← →
cok ©   (2002-04-26 13:05) [10]

>Malder © (25.04.02 20:00)
>Какой смысл внутри FOR писать x:=x+1; ?
Чтоб было :)
А насчет времени это я где-то вычетал.

---

← →
ec ©   (2002-04-26 15:32) [11]

Halt(0); попробуй написать, задержка на 10 сек

---

← →
Johnmen ©   (2002-04-26 15:40) [12]

while True do ; задержка навсегда :-)

>cok © : всегда веришь написанному ? ;o)

---

← →
cok ©   (2002-04-26 20:40) [13]

Ага, особенно если написано на заборе :)

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.008 c