Скачать: CL | DM;

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

← →
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;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.013 c