آیا امکان دارد من عنوان CheckListBox در یک متغغیر بریزم و در یک حلقه آنها را چک کنم
مثال
'chek:='CheckListBox
for i:=1 to 30 do
(chek:=chek+inttostr(i
; index:=form1.chek.itemindex
به جای چک کردن یک به یک آنها
form1.CheckListBox1.ItemIndex
form1.CheckListBox2.ItemIndex
...
form1.CheckListBox10.ItemIndex
...
form1.CheckListBox20.ItemIndex
....
form1.CheckListBox30.ItemIndex