کنترلها

[mostafa612003]

سلام
راهی وجو دارد که با کنترلهای هم نوع مثل یک آرایه عمل کرد و برای چک کردن آنها از حلقه for استفاده نمود؟

متشکرم

[مهدی کرامتی]

1- لطفا تیتر تاپیک تون رو اینقدر خلاصه ننویسید.
2- هدفتون از انجام اینکار چیست؟ سوالتون زیاد واضح نیست.

[mostafa612003]

سلام
من چند تا کنترل checkbox دارم
که می خواهم با یک حلقه for مشخص کنم که کدام از آنها انتخاب شده اند
متشکرم

[مهدی کرامتی]

این کد را بدقت مطالعه کنید:

procedure TForm1.Button1Click(Sender: TObject);

var i: integer;

begin

  ListBox1.Items.Clear;



for i := 0 to ComponentCount - 1 do

   begin

    if (COMPONENTS[i] is TCheckBox) and 

       (TCheckBox(COMPONENTS[i]).Chec  ked = True)

    then 

       listbox1.items.add(TCheckBox(COMPONENTS&#9  1;i]).Name);

   end;

end;