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

Вниз

Массив из Label ов   Найти похожие ветки 

← →
HellSing   (2006-02-24 14:57) [0]

Вот мне надо прописать
Label1.Caption:="primer";
А у мнея label аж 44 штуки, хотелось бы как с массивом
Label[i].Caption:="primer";
А так нельзя, подскажите пожалуйста, а то 44 раза писать - руки отсохнут!

---

← →
Сайбель Алексей ©   (2006-02-24 14:59) [1]

Components, ComponentCount + F1

---

← →
umbra ©   (2006-02-24 15:03) [2]

добавьте в форму компонент TComponentList и храните в нем ссылки на лабелы. Появится возможность обращаться к ним по индексу.

---

← →
Джо ©   (2006-02-24 15:53) [3]

> HellSing   (24.02.06 14:57)
> А у мнея label аж 44 штуки, хотелось бы как с массивом

Ну, так и сделай массив:
type
 TLabelArray = array [0..43] of TLabel;
var
 LabelArray: TLabelArray;

---

← →
HellSing   (2006-02-24 17:22) [4]

> добавьте в форму компонент TComponentList и храните в нем
> ссылки на лабелы. Появится возможность обращаться к ним
> по индексу.

А по падробнее можно??

---

← →
Джо ©   (2006-02-24 17:28) [5]

У тебя что, все Label"ы на форме должны иметь один и тот же Caption?

---

← →
ancara ©   (2006-02-24 21:07) [6]

var
 i: integer;
begin
 for i:=1 to 44 do
   TLabel(Form1.FindComponent("Label"+IntToStr(i))).Caption:="primer";
end;


---

← →
HellSing   (2006-02-25 05:06) [7]

> ancara ©   (24.02.06 21:07) [6]
> var
>  i: integer;
> begin
>  for i:=1 to 44 do
>    TLabel(Form1.FindComponent("Label"+IntToStr(i))).Caption:
> ="primer";
> end;


Спасибо. Понял. Работает.

---

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

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

Наверх

Память: 0.46 MB
Время: 0.016 c