VPF::Listview работа с Groups - Форум программистов

artmaestro

Дата 2.7.2012, 21:16 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 80
Регистрация: 8.11.2010

Репутация: нет
Всего: 1

Здравствуйте

Подскажиете пожалуйста в чем проблема

У меня имеется массив записей GroupIni

сама запись организована следующим образом

Код


TUserGroups = record
     item : Integer;                                 
     name : String;
     IPComputer : WideString;
     numberSettings : string;
   end;


var
  Form1: TForm1;
  GroupIni : array[0..5] of TUserGroups;

Массив записей забит верно (проверял).

Исходные данные, которые забиваются в записи, каждая тройка данных,является одним элементом массива записей.
----------------------------------------------------------------
Пользовательская группа 1                                                               //    name
192.168.1.5 192.168.1.2 192.168.1.9 192.168.1.7                             //   IPComputer
1,4                                                                                                      //    numberSettings

Пользовательская группа 2
192.168.1.11 192.168.1.12 192.168.1.19 192.168.1.17
3,4

Пользовательская группа 3
192.168.1.21 192.168.1.22 192.168.1.29 192.168.1.27
4,2

Проблема в следующем.
Хочу вывести в компонент ListView ip-адреса (в столбик), где каждый из них принадлежал определенной пользовательской группы

пример:
------------------------------------

Пользовательская группа 1
192.168.1.5
192.168.1.2
192.168.1.9
192.168.1.7

Пользовательская группа 2
192.168.1.11
192.168.1.12
192.168.1.19
192.168.1.17

и т.д.

Данную операцию я реализовал следующим образом

Код


procedure TForm1.viewDataIni(countGroup:Integer);  // countGroup  - количество элементов в массиве записей
 var
  i, j : integer;
  sl: TStringList;
 begin

   for i := 0 to countGroup-1  do
     begin

        sl:= TStringList.Create;

        ListView1.Groups.add.Header:=GroupIni[i].name;
        ListView1.Groups.Items[i].GroupID:=i;

        sl.Delimiter:=#032;
        sl.DelimitedText:=trim(GroupIni[i].IPComputer);


       for j := 0 to sl.Count - 1 do
        begin
         ListView1.Items.Add.Caption:=sl.Strings[j];
         ListView1.Items.Item[j].GroupID:=i;
        end;
       
       sl.Destroy;

     end;

 end;

Проблема в следующем. Если не активирую свойство GroupView компонента ListView, то выводятся все ip-адреса (по порядку групп), но если я активирую данное свойство то выводиться на экран следующее

отображается название групп "Пользовательская группа 3" - хотя выводятся IP-адреса первой группы.

Программирую в Delphi 10

Подскажите пожалуйста, что я не так делаю.
Заранее спасибо.

Это сообщение отредактировал(а) artmaestro - 2.7.2012, 21:29

artmaestro

Дата 3.7.2012, 21:38 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 80
Регистрация: 8.11.2010

Репутация: нет
Всего: 1

Данная проблема решилась таким способом:

Код


procedure TForm1.viewDataIni(countGroup:Integer);  // countGroup  - количество элементов в массиве записей
 var
  i, j : integer;
  sl: TStringList;
 begin
   sl:= TStringList.Create;
   for i := 0 to countGroup-1  do
     begin
        with ListView1.Groups.add do begin
           Header:=GroupIni[i].name;
           GroupID:=i;
        end; 

       sl.DelimitedText:=trim(GroupIni[i].IPComputer);

       for j := 0 to sl.Count - 1 do
        begin
         with ListView1.Items.Add do begin
          Caption:=sl.Strings[j];
          GroupID:=i;
         end; 
        end;
     end;
sl.Destroy;
 end;

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »