Ханойские Башни на Delphi

[Vyacheslav.]

Помогите пожалуйста дописать игру "Ханойские Башни" на Делфи.
Сложно разобраться с ней, постоянно какие-то ошибки.

[Black Fregat]

На этом этапе это как в шутке про сову. Я типа свои два круга нарисовал, а вы все помогите мне дорисовать сову..

[Vyacheslav.]

Согласен. Помогите на этом этапе пожалуйста. Игра готова, но с багами.
Нужно сделать чтобы победа засчитывалась если башня была собрана как на втором, так и на третьем стержне.
И сделать чтобы корректно работал SpinEdit.
И подскажите как закодить кнопку "обновить"

[evg_m]

 if  (  ( (L.Hint = 'XX') and (M.Hint = 'XX') ) 
  or ( M.... and R... ) 
  or ( ... ) )  then  ShowMessage('Вітаю! Ви перемогли!');

корректно работал SpinEdit.

??? Игру не пробовал.

закодить кнопку "обновить"

==начать сначала???

[Vyacheslav.]

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

if ( ( (L.Hint = 'XX') and (M.Hint = 'XX') )
or ( M.Hint = 'XX' and R.Hint = 'XX' )
then ShowMessage('Вітаю! Ви перемогли!');

Не помогло..

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

??? Игру не пробовал.

Уже вроде бы настроил.

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

==начать сначала???

Да, как закодить кнопку обновить, чтобы диски возвращались на место(1-й стержень).

[Vyacheslav.]

Сделал

 if (L.Hint = 'XX') and (M.Hint = 'XX') or (L.Hint = 'XX') and (R.Hint = 'XX') then  ShowMessage('Вітаю! Ви перемогли!');

Осталось только закодить кнопку обновить.. подскажите как?

[evg_m]

поместить диски(share a,b,c,....) на "старое" место (left, top:=.... )

a.left:=144; a.top:=184;
....

[Vyacheslav.]

evg_m, так выходит...

[MyName-Name-MyName]

Если хотите помощи - то надо красиво оформить код.


Во вторых, если вы делаете подобную программу - почитай про массивы

В массиве храните список картинок. По индексу обращайтесь к нужной картинке

Создайте нормальный CASE а не связку из else - if (А лучше опять же массив из 3 элементов - содержащие позицию нужных квадратов на форме.. 20 строк кода максимум)

Задача на столько лёгкая - что можно сделать за две минуты - при условии что знаете язык, и не ленитесь изучать его.

Если вы не желаете нормально изучать язык - это целиком и полностью ваша проблема, и решить её вам помогут в платном разделе

[Vyacheslav.]

MyName-Name-MyName,
Я начинающий программист, поэтому быдловский код.
Использую фигуры, а не картинки.
Желаю, но сроки слишком короткие, с заданием не повезло.