[saurn]

Всем привет. Вопрос к знатокам: имеется куча чекбоксов и чтобы не плодить такую же прорву булевных функций думал, как объединить их все в одну, при этом не записывая значения с каждого в отдельную глобальную переменную. Короче, в итоге сваял:

Как-то вот так

Код:

[Code]
function CheckedBoxes(const cNumber: Integer): Boolean;
begin
  case cNumber of
    1: Result := CheckBox_1.Checked;
    2: Result := CheckBox_2.Checked;
    3: Result := CheckBox_3.Checked;
    4: Result := CheckBox_4.Checked;
    5: Result := CheckBox_5.Checked;
    6: Result := CheckBox_6.Checked;
    7: Result := CheckBox_7.Checked;
    8: Result := CheckBox_8.Checked;
  end;
end;

//ну и проверка:

if CheckedBoxes(1) then
if CheckedBoxes(2) then
if CheckedBoxes(3) then
... и т.д.

Обработка проходит корректно, но это можно назвать правильным, или меня куда-то не туда понесло(знаю, что можно использовать чеклистбокс, но как-то удобней мне с простыми чекбоксами)?