[Dis]

Народ помогите пожалуйста. В общем есть пять checkbox'ов и нужно сделать проверку есть ни один из них не нажат (т.е. checked=false) то выводить сообщение... Я сделал так

Код:

if
form2.CheckBox1.Checked=false
and
form2.CheckBox2.Checked=false
and
form2.CheckBox3.Checked=false
and
form2.CheckBox4.Checked=false
and
form2.CheckBox5.Checked=false
then
showmessage('введите данные');
end;

Но сообщение все равно выскакивает даже если некоторые checkbox'ы нажаты. Причем если первый checkbox отмечен то все нормально.

[lmikle]

1. Все условия - в скобки.
2. CheckBox.Checked - уже булевское значение. Нафига сравнивать?

Код:

With Form2 Do
  If (Not CheckBox1.Checked) And
     (Not CheckBox2.Checked) And
     (Not CheckBox3.Checked) And
     (Not CheckBox4.Checked) And
     (Not CheckBox5.Checked) Then ShowMessage('bla-bla-bla');

Еще один вариант (просто преобразование НЕ-И в НЕ-(ИЛИ)):

Код:

With Form2 Do
  If Not (CheckBox1.Checked Or
          CheckBox2.Checked Or
          CheckBox3.Checked Or
          CheckBox4.Checked Or
          CheckBox5.Checked) Then ShowMessage('bla-bla-bla');

[Dis]

Помогло, спасибо большое