|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Проверка CheckBox`ов
Здравствуйте. Пишу тест на XE3, там вопрос и 5 вариантов ответа, 2 из них правильные. Делаю проверку Chek`ов черех if, 1 и 2 чекбоксы - правильный ответ (соответственно только 1 или только 2 или все кроме 1го или все кроме 2го или просто все кроме 1 и 2 - неправильный ответ). Вроди все получилось, но вот проблема.. если выбрать все и 1 или все и 2, то ответ помечается правильным (а вообще то он не правильный), то есть при проверке, игнорируется 1 или 2 чекбоксы. Объясните мне что не так, или я опять много чего тут накуролесил...
собственно кусочек кода... Код:
procedure TForm3.Button1Click(Sender: TObject); var TF: TextFile; LN: string; begin if CheckBox1.Checked = true and CheckBox2.Checked = true and CheckBox3.Checked = false and CheckBox4.Checked = false and CheckBox5.Checked = false then begin Form1.Panel2.Color:= clGreen; LN:= 'YES'; assignfile (TF, form4.SaveDialog1.FileName); append (TF); writeln (TF, LN); CloseFile (TF); end else begin Form1.Panel2.Color:= clRed; LN:= 'NO'; assignfile (TF, Form4.SaveDialog1.FileName); append (TF); writeln (TF, LN); CloseFile (TF); end; end; |
#2
|
||||
|
||||
Разделите операторы скобками : (...) and (...). Кстати, удивительно что вообще без них работает, должна выскакивать ошибка, хотя может в ХЕ всё и по-другому, семёроводу это не ведомо
Добавлено немного позже: Используйте лучше такую рабочую конструкцию Код:
... if (CheckBox1.Checked) and (CheckBox2.Checked) and (not CheckBox3.Checked) and (not CheckBox4.Checked) and (not CheckBox5.Checked) then... ... Я не понял Вашего вопроса, но всё же Вам на него отвечу! Последний раз редактировалось Alegun, 12.10.2013 в 17:14. |
Этот пользователь сказал Спасибо Alegun за это полезное сообщение: | ||
Andrey_Ryzhov (12.10.2013)
|
#3
|
|||
|
|||
Спасибо огромное! Да в XE3 не на что не ругается, даже не предупреждает... Просто раньше на 7 сидел... да вот интерфейс там уже не тот.. хотя версия, проверенная временем. Я с неё все равно не съеду, с неё начал, просто новое-то надо узнавать. Разделить их скобками... вот я не подумал то... Ну теперь буду умнее, спасибо.
Понятно. Тоже хвучит неплохо... и эту опробую. Последний раз редактировалось M.A.D.M.A.N., 12.10.2013 в 19:39. |