Заполнение listview

@ELbD_1 · Регистрация: 29.03.2019

На форме есть 6 listbox, в каждом заполнены строки.
Есть также один listview, в котором 6 колонок.
Вопрос, как заполнить listview данными из listbox-ов.

Вот так я заполняю, только конкретной строкой, первой, а как все заполнить?

Delphi

   with sListView1.Items.Add do
  begin
    Caption:=slistbox1.Items[0];
 SubItems.Add(slistbox2.Items[0]);
 SubItems.Add(slistbox3.Items[0]);
 SubItems.Add(slistbox4.Items[0]);
 SubItems.Add(slistbox5.Items[0]);
 SubItems.Add(slistbox6.Items[0]);
  end;

Verevkin · 11.04.2019, 08:55

Сообщение от ELbD_1

а как все заполнить?

Ну, вероятно в цикле.

Добавлено через 8 минут
Вот так, например:

Delphi

procedure AddSubItem(item: TListItem; listbox: TListBox);
begin
  if listbox.Count > item.Index
    then item.SubItems.Add(listbox.Items[item.Index])
    else item.SubItems.Add('empty');
end;
 
// заполнение
var
  item: TListItem;
//......
for idx:= 0 to slistbox1.Count - 1 do 
  begin
    item:= sListView1.Items.Add();
    item.Caption:= slistbox1.Items[0];
    AddSubItem(item, slistbox2);
    // ...... 3, 4, 5.......
    AddSubItem(item, slistbox6);
  end; // for

@ELbD_1 · 11.04.2019, 09:20 **[ТС]**

Красава, то, что нужно!

@ELbD_1 0 / 0 / 0 Регистрация: 29.03.2019 Сообщений: 11
	11.04.2019, 09:20 [ТС]	3
	Красава, то, что нужно! 0

Опции темы

Заполнение listview

Решение