Форум: "Потрепаться";
Текущий архив: 2002.06.03;
Скачать: [xml.tar.bz2];
Вниз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 вся ветка
Форум: "Потрепаться";
Текущий архив: 2002.06.03;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.006 c