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

[Nikolas_555]

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

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

не понял, вам весь код, что ли, выслать? или вы предлагаете мне по новой код писать?

[eval]

я даже стесняюсь вам чтото сказать
зачем мне ваши портянки (кодом это назвать язык не поворячиваеться)?

тут все переделывать надо

[Nikolas_555]

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

тут все переделывать надо

так, может, вы и поможете?)
или совсем нет желания разбираться с чужим подобием кода?

[eval]

ну вот вы и скажите зачем вот это
F := False;
kol:=kol+1;

[Nikolas_555]

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

ну вот вы и скажите зачем вот это
F := False;
kol:=kol+1;

ну, F - это что-то типа флага. у меня кроме клика, есть процедуры MouseEnter и MouseLeave, вот:

procedure TForm6.ButtonA1MouseEnter(Sender: TObject);
begin
 if (F=True) then
     Begin
       if (kol mod 2 <> 0) then
       ImageList1.GetBitMap(1,TSpeedButton(Sender).Glyph)
                            else
       ImageList1.GetBitMap(2,TSpeedButton(Sender).Glyph);
     End;
end;

  procedure TForm6.ButtonA1MouseLeave(Sender: TObject);
begin
 if (F=True) then     TSpeedButton(Sender).Glyph.LoadFromFile('C:\Pictures\fon.bmp');
end;

изначально:

var
  F:boolean=True;

так вот, это что-то типа приоритета. что бы после нажатия на кнопку, при наведении ничего не происходило. вроде, доходчиво разъяснил.

Далее, k - это количество ходов, то бишь, подсчет. после каждого клика значение увеличивается на 1. по этому k мы смотрим, чей ход(четный\нечетный), и какую картинку присваивать.
ещё вопросы?)

[eval]

и что F как выставили при первом клике в фалсе так и больше оно не работает? бред какой-то

[Nikolas_555]

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

и что F как выставили при первом клике в фалсе так и больше оно не работает? бред какой-то

это событие присвоено для каждого компонента массива Buttons, всё нормально работает, меня устраивает.

а вообще, вопрос в теме про другую процедуру, и что в ней не так.

[eval]

всё так, не расстраивайтесь, можно в продакшн отдавать

[Nikolas_555]

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

всё так, не расстраивайтесь, можно в продакшн отдавать

честно говоря, надеялся, что тут помогают, а не издеваются.

[eval]

с чем помочь?

алгоритма мало того что не видно, так вы еще и рассказывать не хотите, ну тогда в чем вопрос то?