| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Подскажите чайнику

M@X_1 ©   (2006-01-09 11:49:00) 

Доброго время суток!

Подскажите, как сделать:


For xxx:=1 to 100 do
begin
 Label_XXX.Caption:=IntTostr(xxx);
end;


---

M@X_1   (2006-01-09 12:29:00) [1]

Спасиба!

---

kami   (2006-01-09 12:08:00) [2]

Vlad ©   (09.01.06 12:07) [2]
Я первый :)

---

Vlad   (2006-01-09 12:07:00) [3]

For xxx:=1 to 100 do
begin
 TLabel(FindComponent('Label_' + IntToStr(xxx))).Caption := IntToStr(xxx);
end;

---

kami   (2006-01-09 12:05:00) [4]

for i:=0 to 100 do
TLabel(FindComponent('Label_'+IntToStr(i))).Caption:=IntToStr(i);

В зависимости от правила присвоения имен лэйблам может, нужно будет использовать Format.

---

Наверх