Текущий архив: 2003.08.21;
Скачать: CL | DM;
Вниз
Функция аналогичная delay в Паскале - забыл Найти похожие ветки
← →
acsoft © (2003-08-07 18:04) [0]Функция аналогичная delay в Паскале - забыл
← →
Skier © (2003-08-07 18:06) [1]Sleep(...)
← →
igp © (2003-08-07 18:13) [2]procedure Delay(MSecs: Longint);
var
FirstTickCount, Now: Longint;
begin
FirstTickCount := GetTickCount;
repeat
Application.ProcessMessages;
{ allowing access to other controls, etc. }
( Now - FirstTickCount >= MSecs) procedure Delay(MSecs: Longint);
var
FirstTickCount, Now: Longint;
begin
FirstTickCount := GetTickCount;
repeat
Application.ProcessMessages;
{ allowing access to other controls, etc. }
Now := GetTickCount;
until (Now - FirstTickCount >= MSecs) or (Now < FirstTickCount);
end;
Страницы: 1 вся ветка
Текущий архив: 2003.08.21;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.023 c
