Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.025 c