Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.011 c