Форум: "Основная";
Текущий архив: 2003.03.13;
Скачать: [xml.tar.bz2];

Вниз

обращение к имени к компонентам в цикле   Найти похожие ветки 

← →
denis24   (2003-03-02 17:35) [0]

Подскажите пжлсб.как можно сделать сабж.?
Что то типа
for i:=0 to 10 do
form1.label+intostr(1).caption:="Hello"+intostr(i);

---

← →
Rouse_   (2003-03-02 17:46) [1]

for i:=0 to 10 do
TLabel(findcomponent(label+intostr(i))).caption:="Hello"+intostr(i);

Желаю успехов

---

← →
Rouse_   (2003-03-02 17:47) [2]

Блин кавычки забыл

TLabel(findcomponent( "label"+intostr(i))).caption:="Hello"+intostr(i);

Желаю успехов

---

← →
Kair   (2003-03-02 21:37) [3]

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

---

← →
denis24   (2003-03-03 09:43) [4]

Эти лейблы находятся на другой форме(f2) этот код находится на f1
Правильно ли я пишу?
for i:=0 to List_of_fields .count-1 do
(FindComponent("qrlabel"+inttostr(i+1)) as TQRLabel).Caption :="hello "+intostr(i);

А в ответ вылазит ошибка "Access violetion ........"

---

← →
MBo   (2003-03-03 09:47) [5]

f2.FindComponent...

---

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

Форум: "Основная";
Текущий архив: 2003.03.13;
Скачать: [xml.tar.bz2];

Наверх

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