Текущий архив: 2003.03.13;
Скачать: CL | DM;
Вниз
обращение к имени к компонентам в цикле Найти похожие ветки
← →
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;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.021 c
