Скачать: CL | DM;

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

← →
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]

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

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.025 c