Главная страница
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.022 c
2-1210436683
Werewolf-Prankster
2008-05-10 20:24
2008.06.01
Ошибка: Undeclared Identifier


4-1189857176
Nikfel
2007-09-15 15:52
2008.06.01
Вывод окна свойств для файла или папки.


2-1210157112
Mishenka
2008-05-07 14:45
2008.06.01
Как вывести монитор из стендбая?


15-1208248182
AlexDan
2008-04-15 12:29
2008.06.01
Название проги для выключения компа.


15-1208853107
Студент
2008-04-22 12:31
2008.06.01
SQL