Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

Aln © (2005-01-26 12:15:00)
Вот и весь вопрос.

MakedoneZ (2005-01-26 23:27:00) [1]
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;

:) :) :)

PZ (2005-01-26 22:48:00) [2]
procedure Delay_Wait(amSecs : Integer);
Var
h : THandle;
begin
h := CreateEvent(nil, true, false, '');
WaitForSingleObject(h, amSecs);
Closehandle(h);
end;

HF-Trade (2005-01-26 14:49:00) [3]
Procedure Delay(ms : longint);
Var
TheTime : LongInt;
Begin
TheTime := GetTickCount + ms;
While GetTickCount < TheTime Do
Application.ProcessMessages;
End;

begin...end (2005-01-26 12:21:00) [4]
> [4] Aln (26.01.05 12:18)

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

Александр Иванов (2005-01-26 12:19:00) [5]
Sleep

begin...end (2005-01-26 12:18:00) [6]
> [2] Aln (26.01.05 12:17)

Sleep

Aln (2005-01-26 12:18:00) [7]
оно просто приостанавливает выполнение программы?

Aln (2005-01-26 12:17:00) [8]
Как?

Fay (2005-01-26 12:16:00) [9]
Да

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »