Можно ли сделать задержку, не используя таймер?

← →
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)

Приостанавливает на указанное время выполнение текущего потока.

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;

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;

:) :) :)

Можно ли сделать задержку, не используя таймер? Найти похожие ветки