Номер в имени компонента

← →
Id (2006-06-29 18:29) [0]

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

← →
Vlad © (2006-06-29 18:56) [1]

TListBox(FindComponent("ListBox"+ IntToStr(I))).items...

← →
Мефисто (2006-06-29 20:09) [2]

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. Не забываем проверять количество строк в боксе :)

← →
Германн © (2006-06-30 02:18) [3]

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

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

← →
Id (2006-06-30 14:18) [4]

Благодарю всех!

Номер в имени компонента Найти похожие ветки