Отправлено alm 01 декабря 2005 г. 14:49 В ответ на: OFF: Подскажите процедуру задержки для Делфей. Нужно как Delay в паскале. отправлено Sinelogic 01 декабря 2005 г. 13:57

procedure Delay(MSecs: longint);
var
FirstTickCount, Now: Longint;
begin
FirstTickCount := GetTickCount;
repeat
Application.ProcessMessages;
Now := GetTickCount;
until (Now - FirstTickCount >= MSecs) or (Now < FirstTickCount);
end;

• Все верно, только я бы Now использовать поостерегся. Так же называется функция получения текущего времени и даты - а это может быть чревато боком. Работать, конечно, будет, но... Это плохой стиль - использовать чужие имена переменных или функций. — -=John=-   (01.12.2005 17:52 212.45.24.131, пустое)

---

Перейти к списку ответов  |||  Конференция  |||  Архив  |||  Главная страница  |||  Содержание

E-mail: info@telesys.ru