Помогите правильно задать FPS для программы. Пытаюсь сделать простенькую игру, но немогу правильно задать, а затем измерить частоту обновления сцены:
Код:
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.