Текущий архив: 2005.02.13;
Скачать: CL | DM;
Вниз
Можно ли сделать задержку, не используя таймер? Найти похожие ветки
← →
Aln (2005-01-26 12:15) [0]Вот и весь вопрос.
← →
Fay © (2005-01-26 12:16) [1]Да
← →
Aln (2005-01-26 12:17) [2]Как?
← →
begin...end © (2005-01-26 12:18) [3]> [2] Aln (26.01.05 12:17)
Sleep
← →
Aln (2005-01-26 12:18) [4]оно просто приостанавливает выполнение программы?
← →
Александр Иванов © (2005-01-26 12:19) [5]Sleep
← →
begin...end © (2005-01-26 12:21) [6]> [4] Aln (26.01.05 12:18)
Приостанавливает на указанное время выполнение текущего потока.
← →
HF-Trade © (2005-01-26 14:49) [7]Procedure Delay(ms : longint);
Var
TheTime : LongInt;
Begin
TheTime := GetTickCount + ms;
While GetTickCount < TheTime Do
Application.ProcessMessages;
End;
← →
PZ (2005-01-26 22:48) [8]procedure Delay_Wait(amSecs : Integer);
Var
h : THandle;
begin
h := CreateEvent(nil, true, false, "");
WaitForSingleObject(h, amSecs);
Closehandle(h);
end;
← →
MakedoneZ © (2005-01-26 23:27) [9]procedure Dalay_a_very_big_delay();
var
i,p: VeryVeryVeryVeryVeryLongInteger;
begin
p:=1;
for i:=1 to 1000000000000000000000000000000000000000000 do
begin
P:=P*i;
end;
end;
:) :) :)
Страницы: 1 вся ветка
Текущий архив: 2005.02.13;
Скачать: CL | DM;
Память: 0.48 MB
Время: 0.064 c
