Не могу понять почему не работает. Создаю игру Пятнашки. И ничего у меня не работает. И ошибки при запуске выдает

@ArtemK · Регистрация: 07.10.2012

Author24 — интернет-сервис помощи студентам

Не могу понять почему не работает. Создаю игру Пятнашки. И ничего у меня не работает. И ошибки при запуске выдает.
Вот, подскажите пожалуйста, в чем может быть моя ошибка? Объясните дураку.

@ProRockX · 03.06.2013, 22:46

В коде были незначительные ошибки. Например, в конструкции if, если у тебя несколько условий, то каждое из них нужно брать в скобки. Например, такое условие компилятор delphi не пропустит:

Delphi

1	if a=1 and b=5 and c<7 then ...

Нужно писать так:

Delphi

1	if (a=1) and (b=5) and (c<7) then ...

Ну и смена чисел у тебя происходит по координатам:

Delphi

1	if ((((form1.Components[i] as tbutton).Top=what.Top-80) and ((form1.Components[i] as tbutton).Caption='')) and ((form1.Components[i] as tbutton).Left=what.left)) then

Следовательно, кнопки должны быть расположены определённым образом (свойство top следующего ряда кнопок должно быть ровно на 80 больше чем у предыдущего, то же самое со столбцами и свойством left).

Ну и вот, собственно, проект (по-хорошему, тебе ещё нужно сделать, чтоб числа на кнопках проставлялись рандомно, а так он теперь работает):

	03.06.2013, 22:46

Не могу понять почему не работает. Создаю игру Пятнашки. И ничего у меня не работает. И ошибки при запуске выдает

Решение