Массив из 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?

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;

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

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