Как красивей проверить, установлены ли галочки на нескольких checkbox'aх?

[mosq]

Есть вариант:

if (not c1.checked) or (not c2.checked) or (not c3.checked) or (not c4.checked) or (not c5.checked) then servicechecked:=false;

Когда имена чекбоксов длинные, а самих элементов штук 15, как это красивее написать?
Может есть возможность сделать обобщающее выражение типа

if not ([c1+c2+c3+c4+c5].checked) then servicechecked:=false;

Ась?

[Serge_Bliznykov]

ну, можно написать перебор всех чекбоксов на форме.
вот, типа так:

  servicechecked := true;
  for k:=0 to Form1.ComponentCount-1 do
     if Form1.Components[k] is TCheckBox then 
         if Not TCheckBox(Form1.Components[k]).Checked then
         begin
           servicechecked := false;
           break;
         end;

[mosq]

Это не прокатит, так как существуют еще чекбоксы, которые не нужно проверять.
А разве boolean данные нельзя плюсовать\минусовать, чтобы результат тоже булевый получался?

[Роман Радер]

в tag записываем некое число 123 и в код, предложенный Serge_Bliznykov меняем

 if Not TCheckBox(Form1.Components[k]).Checked then

на

if (Not TCheckBox(Form1.Components[k]).Checked) and (TCheckBox(Form1.Components[k])=123) then

А разве boolean данные нельзя плюсовать\минусовать, чтобы результат тоже булевый получался?

нет конечно, какой результат вы хотите получить true+true??
можно делать булевые операции: and or not...

[mosq]

нет конечно, какой результат вы хотите получить true+true??

0+0=0
0+1=1
1+1=1
вот так хочу

Но ладно, я совсем забыл про tag, думаю, это как раз выход и будет.
Спасибо.

[Роман Радер]

0+0=0
0+1=1
1+1=1
вот так хочу

эта операция or называется.
false or false = false
false or true = true
true or true = true