У кого нить есть пример Ханойской Башни

[kolduev]

to Dmitry
обясни плиз каким условием у тя проверяется, что можно двигать тока верхний блок и на какую позицию он должен встать !!

[_Dmitry]

Работа пpогpаммиста и шамана имеет много общего - оба боpмочyт непонятные слова, совершают непонятные действия и не могут объяснить, как все это работает.
И чаще всего это не шутка, а сложная логика в программе.

Двигаем только верхний блок.
Они все пронумерованы, верхние на всех колышках имеют номер 1. Если номер блока не 1, то процедура не выполняется.

if M[k].ne = 1 then (Sender as TPanel).perform(WM_SysCommand,$F012,0)
  else exit;

Определяем на какой колышек насадить.
Если центр блока находится вблизи центра колышка А ±d, то насаживаем его на колышек А и т.д.

if abs(Left+round(Width/2)-xA) <= d then ...

[kolduev]

непонял, всмысле пронумерованы единицей! если я расположу блоки например так: внизу 1, сверху 2, а потом 3, то по твоей проге смогу передвинуть тока 3-й! вот это хотел узнать как! и как определяется на какой уровень ставить блок, у тя какой то подсчёт ведйтся блоков на колышке?

[_Dmitry]

В программе введен массив M:
M[i].ns
M[i].ne
здесь i - номер блока (который написан на нем), ns - номер колышка на который насажен блок, ne - номер этого блока на колышке, считая с верху.

[kolduev]

вот такая прога у мня получилась, прошу посматреть, попробовать разобраться, мож как упростить можно..... и мне надо ещё сделать демонстрацию, я хз как !!

[_Dmitry]

А где kyrs22? Без него не компилируется.

[KORT]

Вот я изменил, теперь компилиься, там просто небыло формы о программе...

[kolduev]

так! не забываем про эту тему!!

[Serge_Bliznykov]

и что, игра работает?
Просто у меня под Delphi5 выдаёт ошибку при попытке начать новую игру.
Конкретно на строчке:
p[i].Left:=(Panel2.Left+5)-StrToInt(FloatToStr(p[i].Width/2));
при попытке перевести в целое число 50.5 ...
а зачем такие фокусы с Float->Str, а потом Str->Integer?
разве не проще:
p[i].Left:= (Panel2.Left+5)- trunc(p[i].Width/2);

во время игры, при попытке перенести диск, ошибка с дробью уже возникает на операции:
IntToStr(StrToInt(
это для чего такой код? я, по своей недалёкости, так и не понял... ;-(

2) Крайне не понравилась сама реализация (TEditXX, обработка click'а отдельно для каждой панели).
Почему Вы не воспользовались решением, которое Вам предложил _Дмитрий (через массив записей М: M[i].ns M[i].ne) ???!!

хотя, похоже это только у меня такие косяки?...

[kolduev]

ну насчёт ошибок, то это тока у тебя похоже, такое решение, потому что я мало что понял из предложенного варианта Дмитрия, я в коммандах Делфи не особо селён, так что сделал так вы и видете кстати те три процедуры с панелями(колышками) надо будет действительно в одну переделать! но это всё фигня, главное прога работает, меня вот интересует как сделать демонстрацию?