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

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

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

Номер в имени компонента [D6, XP]

Id © (2006-06-29 18:29:00)
Здраствуйте еще раз.
У меня есть 6 компонентов TListbox, называются все стандартно Listbox1,Listbox2,.. и т. д. до Listbox6.
Как мне в одном цикле присвоить первой строчке каждого Listbox-а
к.-л. значение. Поясню
for i:=1 to 6 do begin
listbox[i].items[1]:='Значение';
end;
понимаю, что "listbox[i]." не корректно.
Как корректно?

Id (2006-06-30 14:18:00) [1]
Благодарю всех!

Германн (2006-06-30 02:18:00) [2]

> Как мне в одном цикле присвоить первой строчке каждого Listbox-
> а

Если подобные циклы встречаются в программе неоднократно, а количество компонент, свойства которых нужно изменить не изменяется, то имхо лучше завести массив этих компонент как переменную array[..] of при FormCreate.

Мефисто (2006-06-29 20:09:00) [3]
var
I: Integer;
begin
for I := 0 to Form1.ControlCount - 1 do
if Form1.Controls[I] is TListBox then
TListBox(Form1.Controls[I]).Items[1] := 'Значение';
end;

P.S. Не забываем проверять количество строк в боксе :)

Vlad (2006-06-29 18:56:00) [4]
TListBox(FindComponent('ListBox'+ IntToStr(I))).items...

Наверх

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