Головоломка

[Vali_T]

Создала головоломку. есть две кнопки "Выход" и "Начать занова".
Подскажи пожалуйста, как сделать так, чтобы кнопка "Начать занова" работала, если вдруг в головоломке ход был сделан неправильно и игра остановилась?

[Stilet]

Ну если ход правильный то <Кнопка>.Enabled:=false
Если неправильный то <Кнопка>.Enabled:=True

[Vali_T]

начать занова имеется в виду, поставить все имеющиеся фишки в изночальное положение и продолжить решать головоломку

т.е. мне надо описать процедуру
procedure TForm1.Button2Click(Sender: TObject);

[Stilet]

поставить все имеющиеся фишки в изночальное положение

На предидущий ход? Ну а какой алгоритм твоей программы? Код в студию, тогда посмотрим.

[Vali_T]

procedure TForm1.FormCreate(Sender: TObject);
begin
n:=4;
win:=24;
end;



procedure TForm1.BitBtn1Click(Sender: TObject);
var
i, c, k, ak: Integer;
begin
with Sender as TBitBtn do
begin
i := Tag div 2;
c := Tag mod 2;
k := n-i;
ak := Abs(k);
if ak<3 then
if ((c=0) and (k>0)) or ((c=1) and (k<0)) then
begin
Tag := Tag + 2*k;
Left := Left + 56*k;
n := i;
win := win - ak;
end;

end;



if win = 0 then
begin
Caption := 'Победа!';
Panel1.Color := clFuchsia;
Panel1.Enabled := False;
end;

end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Close;
end;

end.

[puporev]

Раньше все делали просто. Ставили метку (Label 1 и писали:
если что-то не так then goto 1;
Сейчас говорят метки не в моде.

[mutabor]

Ничего не понимаю, что это за головоломка? Если win = 0 то победа, а проигрыш когда? Что значит игра остановилась, она что зависает что-ли?
Если нет, то что тебе мешает активировать кнопку, либо поменять ей заголовок в тот момент когда игра "остановилась".

[evg_m]

procedure TForm1.FormCreate(Sender: TObject);
begin
initGame;
end;

procedure TForm1.InitGame;
begin
n:=4;
win:=24;
end;

procedure Tform1.Button2Click;
begin
initGame;
end;

[Vali_T]

evg_m не получается, или просто я чего не допонимаю
Помогите пжлуста(

[mutabor]

Vali_T, на будущее, когда ты даешь людям код, особенно с переменными из одной буквы, делай комментарии, достаточно описания переменных.
Сейчас сделаю, если будет по другому не обижайся, но расшифровывать эти буквы не очень хочется.

Вот держи, в алгоритм даже не вникал, просто сделал возврат в исходное состояние.