Текущий архив: 2004.03.14;
Скачать: CL | DM;

Вниз

Зацикливаем TControl   Найти похожие ветки 

← →
AGN   (2004-03-04 09:23) [0]

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

Приведу простой пример:

procedure TForm1.Button1Click(Sender: TObject);
begin
CheckBox1.Checked := true;
CheckBox2.Checked := true;
CheckBox3.Checked := true;
CheckBox4.Checked := true;
CheckBox5.Checked := true;
end;

как такое переписать в виде цикла, типа
for i :=1 to 5 do CheckBox[i].Checked := true; :)

Как такую фигню правильно описать - сам я эксперементировал долго и по всякому, но уже сдался.

---

← →
Palladin ©   (2004-03-04 09:24) [1]

TComponent.FindComponent

---

← →
AGN   (2004-03-04 09:31) [2]

дико извиняюсь, но можно поподробнее? как должен выглядеть приведённый пример?
спасибо

---

← →
Palladin ©   (2004-03-04 09:33) [3]

var
c:TComponent;

for i:=1 to 5 do
begin
c:=Form1.FindComponent("CheckBox"+IntToStr(I));
if c Is TCheckBox then (c as TCheckBox).Checked:=True;
end;

---

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

Текущий архив: 2004.03.14;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.019 c