Форум: "Основная";
Текущий архив: 2003.04.21;
Скачать: [xml.tar.bz2];
ВнизКак сделать задержку Найти похожие ветки
← →
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 вся ветка
Форум: "Основная";
Текущий архив: 2003.04.21;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.009 c