[gadmaker]

Помогите правильно задать FPS для программы. Пытаюсь сделать простенькую игру, но немогу правильно задать, а затем измерить частоту обновления сцены:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

var  Time: integer; // Время  Tick: Cardinal;   function GameSpeed(Speed: integer): integer; // Установить скорость игры  begin   sleep(1000 div Speed);   Result := 1000 div (GetTickCount-Tick);   Tick := GetTickCount;  end;   while Time < 1000 do  begin   Time := Time+1;   Win.Caption = IntToStr(GameSpeed(60));  end;

Проблема в том, что вместо ожидаемых 60 кадров в секунду данная конструкция выдаёт только 32.

[Страдалецъ]

Ну не знаю, у меня данная штука выдает такой вот ряд значений:

0
66
31
66
62
66
62
62
66
62
62
66
62
66
62
62
66
62
32
62
66
62
62
66
62
62
66
62
66
62
62
66
62
62
32
66