Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2008.06.01;
Скачать: 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 вся ветка

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

Наверх




Память: 0.47 MB
Время: 0.019 c
2-1210235520
Андрей Пл
2008-05-08 12:32
2008.06.01
Размер в байтах!!!


15-1208287282
Kolan
2008-04-15 23:21
2008.06.01
Как называются картинки в начале фильма?


2-1210499472
Nucer
2008-05-11 13:51
2008.06.01
GetMem и записи со строками


4-1189662839
Rustam
2007-09-13 09:53
2008.06.01
Вопрос по оборудованию


2-1210058039
DevilDevil
2008-05-06 11:13
2008.06.01
Bitmap. Mask. не отображается.