Цикл по компоненте

← →
odyssey (2003-03-21 18:09) [0]

Необходимо такое: if CheckBox1.Checked=true then n1:="01"
Проблема в том, что Checkbox-ов около 50-ти. Можно ли это сделать в цикле?

← →
Song (2003-03-21 18:13) [1]

For t:=1 to 50 Do IF TCheckBox(FindComponent("CheckBox"+IntToStr(t))).Checked then n1:="01"

← →
MBo (2003-03-21 18:13) [2]

да. Проще держать их в массиве.
Иначе или ищи по имени FindComponent или просто обходи все компоненты Components[i]

← →
Юрий Зотов (2003-03-21 18:17) [3]

Пронумеруйте нужные CheckBox"ы в свойстве Tag. Далее, например, так:

for i := 0 to ComponentCount - 1 do
if (Components[i] is TCheckBox) and
TCheckBox(Components[i]).Checked then
case Components[i].Tag of
1: n1:="01";
2: n2:="02";
...
end;

Цикл по компоненте Найти похожие ветки