добавление в TListView больших объемов инфы

[m_kostik]

Здравствуйте, уважаемые коллеги!
У меня проблема с TListView (режим vsReport). Мне нужно добавить в
него большое количество Item'ов (порядка 80 тысяч). В Item'е 3
Subitem'а. Делаю примерно так:

var
  i: integer;
  li: TListItem;
begin
  for i := 0 to 80000 do
    begin
      li := ListView1.Items.Add();
      li.Caption := str1;
      li.SubItems.Add(str2);
      li.SubItems.Add(str3);
      li.SubItems.Add(str4);
    end;
end;

Беда в том, что на машине средней паршивости этот код выполняется
примерно за 15..20 минут, что не допустимо. Проблема именно в
заполнении ListView - все остальное работает быстро. Есть ли
какой-нибудь способ поднять производительность?

[Stilet]

1) ListView.Items.BeginUpdate...код добавления записей...ListView.Items.EndUpdate
2) Не пользоваться ListView. Заменить его чем другим.
3) Не вносить сразу столько записей
4) Вносить. Но в дополнительном потоке.
Выбирай

[ReportCube]

Виртуальный список - точно так, как посоветовали на Королевстве

[m_kostik]

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

1) ListView.Items.BeginUpdate...код добавления записей...ListView.Items.EndUpdate
2) Не пользоваться ListView. Заменить его чем другим.
3) Не вносить сразу столько записей
4) Вносить. Но в дополнительном потоке.
Выбирай

Пункт 1 выигрыша не дает.
2. Заказчик настаивает на использовании только стандартных компонентов.
3. К сожалению, все записи нужно внести за раз.
4. Данные и так вносятся в дополнительном потоке.

[ReportCube]

У Вас есть источник данных, тот самый список, откуда Вы берёте Str1, Str2 и т.п. Вы знаете его размер. Просто указываете этот размер как размер для TListView.Items.Count, а данные будете передавать в обработчике события OnData. Вам же никто не предлагает какой-то нестандартный компонент: обычное и правильное использование стандартного класса для работы с большими списками.

[m_kostik]

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

Виртуальный список - точно так, как посоветовали на Королевстве

Был бы крайне признателен за пример кода.

[veniside]

http://tinyurl.com/63d4h3u

[m_kostik]

Спасибо veniside'e! Нашел отличную статью по этой проблеме: http://www.delphi.int.ru/articles/38/
Суть в том, что при работе с большими объемами инфы нужно устанавливать ListView.OwnerData в true, затем присвоить ListView.Count сколько нужно (в моем случае 80000) и создать обработчик события OnData, в котором будет заполняться каждый конкретный Item (с Subitem'ами). Событие OnData возникает только тогда, когда нужно вывести соответствующий Item в видимую область ListView. Естественно, что при большом количестве Item'ов скорость увеличивается на порядки.

[ReportCube]

Всё так, но не забывайте про проблемы, которые обязательно возникнут при включение группового выделения. Кабы было всё так просто...

[m_kostik]

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

Всё так, но не забывайте про проблемы, которые обязательно возникнут при включение группового выделения. Кабы было всё так просто...

А можно об этом по-подробнее. Или хотя бы ссылочку где об этом говорят? А то у меня возникло легкое головокружение от успехов :-))) Надо приходить в себя :-)