обращение к имени к компонентам в цикле

← →
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...

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