Нужна помощь при подсчёте недопрограммисту

[DarkMorfius]

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

Ну попробуй так:

Вложение 85904

Посмотри куда я вывожу и сделай себе также... А кстате, я пытался присвоить имя переменной "Caption", но у меня ошибку выдавала, поэтому остановился на "Caption1".

Господи вы мой герой, что бы я без вас делал то вообще, второй раз выручаете. Большое спасибо теперь буду знать как это можно сделать и запомнать.
ОГРОООООМНООЕЕЕ вам спасибо.
Будьте всегда здоровы и счастливы :D и сыты да, и сыты, и что б дома уют всегда присутствовал

[ura_111]

А ну расскажи про свою задачу.
Что значит "сапёр"? Я знаю в Windows есть такая игра. Но там вроде нужен генератор случайных чисел (для распределения мин на поле) и когда пользователь клацает на кнопку, то она открывается и показывается пользователь попал на мину или нет...

А у тебя что? Просто счётчик и всё.

[DarkMorfius]

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

А ну расскажи про свою задачу.
Что значит "сапёр"? Я знаю в Windows есть такая игра. Но там вроде нужен генератор случайных чисел (для распределения мин на поле) и когда пользователь клацает на кнопку, то она открывается и показывается пользователь попал на мину или нет...

А у тебя что? Просто счётчик и всё.

Ну а я пытаюсь сделать тот же Сапёр только гораздо "проще" не такой "крутой" как та игра
У меня счётчик, набор кнопочек (при нажатии на верную кнопку она становится невидимой и прибавляет счёт, при нажатии на неверную в Caption присваивается значение Х и игра прекращается.) ну и панель с названием.

[DarkMorfius]

Сейчас пытаюсь немного подкорректировать когда при нажатии на одну кнопку исчезают несколько при этом прибавляя +1, но проблема в том, что при нажатии на кнопку рядом с той что делает несколько других невидимыми (и прибавляет +1) при нажатии на кнопку что делает невидимыми другие (включая ту которую уже нажали) она вновь прибавляет +1
ТО ЕСТЬ это выглядит вот так.

procedure TForm2.btn6Click(Sender: TObject);
begin
btn6.Visible:=false;
if btn6.Visible=False then
begin
  btn4.Visible:=False;
btn10.Visible:=False;
 i:=i+1;
edt1.Text:=IntToStr(i);
end;
if btn4.Visible=False then
begin
  i:=i+1;
edt1.Text:=IntToStr(i);
end;
if btn10.Visible=False then
begin
  i:=i+1;
edt1.Text:=IntToStr(i);
end;
end;


procedure TForm2.btn4Click(Sender: TObject);
begin
i:=i+1;
edt1.Text:=IntToStr(i);
btn4.Visible:=false;
end;
end.

И я пытаюсь найти то что делает проверку на кнопку, типа.... Если кнопка уже невидима то не прибавлять +1 а если еще не невидима то сделать ее невидимой и прибавить +1.

[DarkMorfius]

Пока что с этим вожусь, а дальше буду ее "модернизировать" что бы она стала более похожа на тот сапер что есть на Windows