| farlight | Дата: Вторник, 22 Июля 2014, 21:29 | Сообщение # 1 | Тема: Вопрос по Паскалю |
|
уже был
Сейчас нет на сайте
| Привет  Попробуй может так выйдет Тыц функция GetTickCount и цикл while.. как то так:
procedure Delay16ms;
var i: integer;
begin
i:=GetTickCount ;
while GetTickCount -i <17 do begin end;
end;
|
|
|
| |
