правильно ли написана процедура?

[Nikolas_555]

здравствуйте, форумчане
у меня на форме массив SpeedButton'ов, имя ему Buttons. индексы - как показано на скрине:



вот код процедуры:

procedure WIN_obl(Sender: TObject);
Begin
//   X   [1]
  if (buttons[1 ].Tag1=1) and (buttons[2 ].Tag1=1) and (buttons[3 ].Tag1=1) or
     (buttons[10].Tag1=1) and (buttons[11].Tag1=1) and (buttons[12].Tag1=1) or
     (buttons[19].Tag1=1) and (buttons[20].Tag1=1) and (buttons[21].Tag1=1) or
     (buttons[1 ].Tag1=1) and (buttons[10].Tag1=1) and (buttons[19].Tag1=1) or
     (buttons[2 ].Tag1=1) and (buttons[11].Tag1=1) and (buttons[20].Tag1=1) or
     (buttons[3 ].Tag1=1) and (buttons[12].Tag1=1) and (buttons[21].Tag1=1) or
     (buttons[1 ].Tag1=1) and (buttons[11].Tag1=1) and (buttons[21].Tag1=1) or
     (buttons[3 ].Tag1=1) and (buttons[11].Tag1=1) and (buttons[19].Tag1=1)
  then
   Begin
     ImagesWin[1].Visible:=True;
     ImagesWin[1].Picture.LoadFromFile('C:\Pictures\X_win_obl.bmp');
   End;

End;

так вот, работа процедуры(пока только для первой области):

если определенная тройка элементов массива имеют определенный Tag1, то показывается картинка из массива имеджей, ImagesWin.

внимание, вопрос: почему процедура тупо не воспринимается программой? просто не работает, и всё. что-то с алгоритмом?
P.S. очень надеюсь на вашу помощь.

[Stilet]

Во-первых: Поставь туда точку прерывания и увидишь воспринимается или нет.
Во-вторых: Я предпочитаю писать так:

if ((buttons[1 ].Tag1=1) and (buttons[2 ].Tag1=1) and (buttons[3 ].Tag1=1)) or...

Т.е. явно указывать приоритет операций.

[Аватар]

Я предпочитаю писать так:

Это не предпочтение, а обязательное условие для данной проверки. И если уж это буттоны в массиве, то все эти проверки можно и нужно циклами организовать по всем 9 областям.

[Nikolas_555]

так, понял на счет скобок. поставил. результат не изменился. картинка не появляется

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

Поставь туда точку прерывания и увидишь воспринимается или нет.

а тут просто не понял. что значит "точка прерывания"?

[ksvsvk]

Поставь курсор на нужную строку и нажми [Ctrl]+[F8]. Строка станет красной. Это и есть "точка прерывания". Когда отладчик до нее дойдет, выполнение программы остановится.

[eval]

это судоку чтоли?
а почему тут батоны?

[Nikolas_555]

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

Поставь курсор на нужную строку и нажми [Ctrl]+[F8]. Строка станет красной. Это и есть "точка прерывания".

странно, она не становится красной у меня Delphi2007.

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

это судоку чтоли?.

нет, это альтернативные крестики-нолики.

http://www.pvsm.ru/matematika/36819

[Stilet]

[Ctrl]+[F8]

F5 а не [Ctrl]+[F8]

[Nikolas_555]

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

F5 а не [Ctrl]+[F8]

другое дело. ну, поставил эту точку прерывания, на строку, перед if'ом, итог тот же самый - прога работает, но при определенных кликах на speedbutton'ы картинки не выдаёт просто полный игнор всей процедуры?

тут я подумал, может в процедуре самого клика что-то не так?

procedure TForm6.ButtonA1Click(Sender: TObject);
begin
     if (kol mod 2 <> 0) then
                          begin
                           ImageList1.GetBitMap(1,TSpeedButton(Sender).Glyph);
                         Buttons[i].Tag1:=1;
                          end

                         else
                          Begin
                           ImageList1.GetBitMap(2,TSpeedButton(Sender).Glyph);
                           Buttons[i].Tag1:=2;
                          End;
     F := False;
     kol:=kol+1;
End;

ну, думаю, поняли смысл - при четных\нечетных кликах меняется картинка у элемента массива buttons, и ему присваивается определенный Tag.

[eval]

этот огород уже сильно зарос бурьяном, надо брать бульдозер, сносить все начисто и сажать по новой