Игровой цикл на Pascal ABC.Net

[users1]

Вот посмотрите пожалуйста. Почему не работает. Вроде правильно же?

    var Game := true; 
    var lastTime := Milliseconds;
    var partTime: double := 1000 / 60;
    var delta: double := 0;
   
    while Game do
    begin
        var now := MillisecondsDelta;
        delta += (now - lastTime);
        lastTime := now;
        if (delta >= partTime) then
        begin
            Update();
            delta := 0;
        end;
        Render();
        
    end;

_____
Код программы нужно выделять (форматировать) тегами [CODE] (читать FAQ)
Модератор

[Serge_Bliznykov]

Сообщение от users1

var now := MillisecondsDelta;

1) что есть "MillisecondsDelta" ?

function MillisecondsDelta: integer;

Возвращает количество миллисекунд с момента начала работы программы или предыдущего вызова функций Milliseconds или MillisecondsDelta.

т.е. Вы уже абсолютно зря пишете про (now - lastTime) - Вам уже вернули количество миллисекунд с прошлого вызова.

2) зачем Вам подобные циклы вообще. Это же неэффективно и крайне нагружает процессор.
PascalABC.NET имеет нормальный, событийно-управляемый интерфейс + доступ к Win API.
Например, можно использовать таймер:

Модуль Timers

Модуль Timers содержит класс Timer, позволяющий выполнять определенные действия через равные промежутки времени. В конструкторе класса Timer указывается промежуток времени и имя процедуры без параметров - обработчика события таймера, вызываемой через указанный промежуток времени.

[users1]

Сообщение от Serge_Bliznykov

1) что есть "MillisecondsDelta" ?

function MillisecondsDelta: integer;
Возвращает количество миллисекунд с момента последнего вызова Milliseconds или MillisecondsDelta

[Serge_Bliznykov]

Сообщение от users1

function MillisecondsDelta: integer;

да, не актуально. я уже нашёл это и откорректировал свой предыдущий пост.

[users1]

Так как иначе-то без while. Всегда же так делают игровые циклы или нет?

[users1]

может так

var timeGame := new timer(1000/60, Update);

,
где в Update() есть какая-нибудь Calculete() и Render()?

[Serge_Bliznykov]

Сообщение от users1

var timeGame := new timer(1000/60, Update);

нет, значение интервала таймера должно быть целым числом.

тогда уже:

var t : Timer;
......
begin

 t := new Timer(1000 div 60, MyUpdateProc);

а вообще, зайдите в папку, куда Вы установили PascalABC.NET и посмотрите папку Samples \ Games
(например, "С:\Program Files (x86)\PascalABC.NET\Samples\Games")
там есть готовый код, посмотрите, как там всё реализовано.

p.s. А, честно говоря, непонятно, чем обусловлен выбор в качестве основы именно Pascal ABC.NET - это же химера,
монстр, жуткая помесь Паскаля и MS Framework .NET.
Если Вам нужен .NET - то лучше возьмите C#, он ближе к .NET и "роднее"