Чтение данных в цикле из некоторых компонентов.

← →
Norfolk © (2006-03-26 21:16) [0]

Наверное немного некорректно сформулировал вопрос, но всё же. На форма имеются некоторое колличество CheckBox"ов. Имена в формате, для примера, CheckBox1, CheckBox2 и так далее по порядку. Необходимо просмотреть их все на наличие галочки и записать значения в массив, с соответствующим номером ячейки. Но что-то неохото писать текст для каждого CheckBox"a, а их колличество не маленькое. Может есть способ сделать это всё на автомате, скажем в цикле, но сам что-то не соображу как...

← →
Dmitrij_K (2006-03-26 21:26) [1]

for i := 0 to ComponentCount - 1 do
if Components[i] is TCheckBox then

← →
Norfolk © (2006-03-26 21:55) [2]

Так, как найти компонент понял, а как получить значение его свойсва Checked? Пишу:
for i := 0 to ComponentCount - 1 do if Components[i] is TCheckBox then a: Components[i].Checked
Ругается, что не знает что такое Checked. Уже понял что не так надо обращаться, но пожалуйста подскажить как правильно?

← →
Рамиль © (2006-03-26 21:59) [3]

if Components[i] is TCheckBox then TCheckBox(Components[i].Checked).Checked

Да, кстати если с номером ячейки, то надо либо анализировать имя, либо предварительно установить св-о Tag равным номеру чекбокса.

Чтение данных в цикле из некоторых компонентов. Найти похожие ветки