Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Массив из Label'ов [D7, XP]

HellSing © (2006-02-24 14:57:00)
Вот мне надо прописать
Label1.Caption:='primer';
А у мнея label аж 44 штуки, хотелось бы как с массивом
Label[i].Caption:='primer';
А так нельзя, подскажите пожалуйста, а то 44 раза писать - руки отсохнут!

HellSing (2006-02-25 05:06:00) [1]

> 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;

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

ancara (2006-02-24 21:07:00) [2]
var i: integer; begin for i:=1 to 44 do TLabel(Form1.FindComponent('Label'+IntToStr(i))).Caption:='primer'; end;

Джо (2006-02-24 17:28:00) [3]
У тебя что, все Label'ы на форме должны иметь один и тот же Caption?

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

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

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

Джо (2006-02-24 15:53:00) [5]
> HellSing (24.02.06 14:57)
> А у мнея label аж 44 штуки, хотелось бы как с массивом

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

umbra (2006-02-24 15:03:00) [6]
добавьте в форму компонент TComponentListи храните в нем ссылки на лабелы. Появится возможность обращаться к ним по индексу.

Сайбель Алексей (2006-02-24 14:59:00) [7]
Components, ComponentCount + F1

Наверх

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