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

Как сделать задержку   Найти похожие ветки 

← →
Wedos ©   (2003-04-10 12:47) [0]

Подкажите как сделать задержку, аналог Pascal- Delay.

---

← →
Skier ©   (2003-04-10 12:48) [1]

Sleep

---

← →
Johnmen ©   (2003-04-10 13:05) [2]

Посмотреть, как реализован Delay из модуля VCLUtils

---

← →
malkolinge ©   (2003-04-10 13:25) [3]

А можно пустой цикл :))))) или GetTicksCount(Вроде)+Цикл :)

---

← →
MityaP ©   (2003-04-10 14:15) [4]

procedure MyDelay(ASec: integer);
var
AStartTime: TTime;
AStartDate: TDate;
Seconds: Double;
begin
AStartTime := Date;
Seconds := -1;
while Seconds < ASec do begin
Seconds := (Date + Time)-(AStartDate + AStartTime) * (3600 * 24); // Разница между временем старта и текущем временем в секундах
Application.ProcessMessages;
end;
end;

---

← →
MityaP ©   (2003-04-10 14:17) [5]

Изв... Забыл Time старта присвоить...
procedure MyDelay(ASec: integer);
var
AStartTime: TTime;
AStartDate: TDate;
Seconds: Double;
begin
AStartDate := Date;
AStartTime := Time;
Seconds := -1;
while Seconds < ASec do begin
// Определим разница между временем старта
// и текущем временем в секундах:
Seconds := (Date + Time)-(AStartDate + AStartTime) * (3600 * 24);
Application.ProcessMessages;
end;
end;

---

← →
Wedos ©   (2003-04-11 08:14) [6]

Спасибо всем большое за советы.

---

← →
JohnnyJ ©   (2003-04-11 10:47) [7]

использовать объект ядра WaitableTimer (см. MSDN)

---

Страницы: 1 вся ветка

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



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