Пояснение фрагмента.

[INShcherbakov]

Добрый день!
Есть у кого какие мысли?
нужно разобраться, и объяснить фрагмент:

procedure tSun.Move(dx, dy: Integer);
var
  x: Integer;
  y: Integer;
  i: Integer;
begin
  x := cir.GetX;
  y := cir.GetY;
  Inc(x, dx);
  if x < 40 then
    x := GetMaxX - 40
  else if x > GetMaxX - 40 then
    x := 40;
  Inc(y, dy);
  if y < 40 then
    y := GetMaxY - 40
  else if y > GetMaxY - 40 then
    y := 40;
  dx := x - cir.GetX;
  dy := y - cir.GetY;
  cir.Move(cir.GetX + dx, cir.GetY + dy);
  for i := 1 to 8 do
    tr[i].Move(tr[i].GetX + dx, tr[i].GetY + dy);
end;

[WinCoder]

Типы переменных где? Что такое, к примеру GetMaxY?

[p51x]

Ды это просто движение (наверное, окружности) с контролем границ, т.е. слева исчезает справа появляется...

[INShcherbakov]

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

Ды это просто движение (наверное, окружности) с контролем границ, т.е. слева исчезает справа появляется...

Спасибо! скорее всего так и есть!
Потому-что условие "Написать программу, используя объектно-ориентированный подход, которая двигает по экрану изображение заданного графического объекта. "

[p51x]

скорее всего так и есть!

Тут без скорее всего. Это элементарные действия, тут даже программирования знать не надо.

[INShcherbakov]

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

Тут без скорее всего. Это элементарные действия, тут даже программирования знать не надо.

Здравствуйте.
Спасибо за предыдущий ответ.
Помогите, пожалуйста, еще пояснить подробнее следующее:

procedure tSun.Move(dx, dy: Integer);

cir.Move(cir.GetX + dx, cir.GetY + dy);

tr[i].Move(tr[i].GetX + dx, tr[i].GetY + dy);

[INShcherbakov]

Подскажите, пожалуйста....