Mail.ruПочтаМой МирОдноклассникиВКонтактеИгрыЗнакомстваНовостиКалендарьОблакоЗаметкиВсе проекты

В Турбо Паскале есть процедура Delay, а чем её заменили в Delphi 8?

* * Гуру (2619), закрыт 17 лет назад
Dimon Ученик (142) 17 лет назад
Delay заменен на
Sleep(время задержки в миллисекундах)
Sleep(1000) задержка на 1 сек.
Дмитрий Ученик (210) 17 лет назад
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;
Источник: RxLib
Похожие вопросы