Помогите со screensaver из туториала!

[sidiakin]

Пытаюсь разобрать код из туториала мидлета. Я не понял, как осуществленно движение картинки? Что значит const=0 const=1? Объясните пожалуйста!

[Bruteo]

const - блок определения констант.Движение картинки: в зависимости от направления движения меняются координаты, и картинка перерисовывается в новом месте.

[sidiakin]

Я наверно плохо объяснил. Вот код:

var
keyCode: integer;

x,y: integer;

dir_y: integer;
begin

repeat

if dir_y = 0 then y := y + 1;
if dir_y = 1 then y := y - 1;
SetColor(255, 255, 255);
FillRect(0, 0, GetWidth, GetHeight);
SetColor(0, 0, 0);
DrawText('Hello world', x, y);
Repaint;
Delay(50);
until (keyCode = KE_KEY0);

Я не пойму, за счет чего происходит движение иконки.
dir_y=0, как это работает? Я не понял, как можно осуществить анимацию при помощи 0 и 1??? Пробовал на других языках не получается, а здесь получается. Как это работает?

[Bruteo]

Хм, dir_y - это переменная
dir_y в этом куске кода никак функционально не задействована.
В туториале все достаточно подробно описано в комментариях к коду. Текст перерисовывается в новом месте - так и происходит движение.

[sidiakin]

То, что dir_y - это переменная, я знаю. Я не понял, как работают "0" и "1". Не понятно????????

[sidiakin]

Мне подсказали. Оказалось все просто! Глобальные переменные изначально = 0.
Всем спасибо за бурное обсуждения этой темы!

[sidiakin]

Тему можно удалять!