[AleD]

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

В дельфи я не особо понимаю, но разбираюсь потихоньку...
Подскажите ещё плз, как мне пристроить в этот код "счётчик ошибок" и блокировку на Двойное нажатие кнопки.

Со счётчиком сколько не пробовал по-разному, так ничего и не вышло: в нужную мне переменную он добавляет не только в случае ошибки, но и в случае правильного выбора...
А с блокировкой двойного нажатия вообще ничего не вышло(

ну прибавляй переменную вместе с сообщение об ошибке:

Код:

begin
if SecondClick then
begin
  if LastButton.Tag = TButton(Sender).Tag
  then
  begin
    LastButton.Hide;
    TButton(Sender).Hide;
  end
  else
  begin
    Inc(ErrCnt{имя переменной с числом ошибок}); //Inc то же самое что и ErrCnt := ErrCnt + 1
    ShowMessage('Ошибка!!!');
  end;
  SecondClick := false;
end
else
begin
  LastButton := TButton(Sender);
  SecondClick := true;
end;
end;

о_О подозрительный ник AlexD