Как сделать задержку

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

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

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

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