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; ?

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

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

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