Форум: "Основная";
Текущий архив: 2003.08.21;
Скачать: [xml.tar.bz2];
ВнизФункция аналогичная 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;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.013 c