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

доступ к группе компонентов   Найти похожие ветки 

← →
Незнайка   (2008-05-10 15:44) [0]

Подскажите, как сделать следующее.
У меня на форме лежит 20 компонентов Label. Усть цикл от 1 до 20. Этот цикл пробегает и вставляет в каждый Label определённую строку.

В принципе реализовано вот так

for i:=1 to 20 do
 case i ot
  1 : label1 := ....
  ......
  20 : label20 := ....
 end;

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

ну что то типа label[i] := .....

---

← →
DVM ©   (2008-05-10 15:55) [1]

if components[i] is TLabel then (components[i] as TLabel).caption := "blabla";

---

← →
Evil   (2008-05-10 15:55) [2]

(FindComponent("Label" + IntToStr(I)) as TLabel).Caption := "test" + IntToStr(I);

---

← →
Незнайка   (2008-05-10 16:12) [3]

большое спасибо, понял, сейчас привинчу :)

---

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

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



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