Текущий архив: 2006.01.29;
Скачать: CL | DM;

Вниз

Подскажите чайнику   Найти похожие ветки 

← →
M@X_1   (2006-01-09 11:49) [0]

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

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


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


---

← →
kami ©   (2006-01-09 12:05) [1]

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

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

---

← →
Vlad ©   (2006-01-09 12:07) [2]

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

---

← →
kami ©   (2006-01-09 12:08) [3]

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

---

← →
M@X_1   (2006-01-09 12:29) [4]

Спасиба!

---

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

Текущий архив: 2006.01.29;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.037 c