| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
доступ к группе компонентов [D7, XP]
Незнайка © (2008-05-10 15:44:00)Подскажите, как сделать следующее.
У меня на форме лежит 20 компонентов Label. Усть цикл от 1 до 20. Этот цикл пробегает и вставляет в каждый Label определённую строку.
В принципе реализовано вот так
for i:=1 to 20 do
case i ot
1 : label1 := ....
......
20 : label20 := ....
end;
подскажите, можно ли как то одной командой обратиться к i-тому Label, что бы избавится от case что бы было компактнее.
ну что то типа label[i] := .....
Незнайка (2008-05-10 16:12:00) [1]большое спасибо, понял, сейчас привинчу :)
DVM (2008-05-10 15:55:00) [2]if components[i] is TLabel then (components[i] as TLabel).caption := 'blabla';
Evil (2008-05-10 15:55:00) [3](FindComponent('Label' + IntToStr(I)) as TLabel).Caption := 'test' + IntToStr(I);
| |
