доступ к группе компонентов

← →
Незнайка (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]

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

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