Daily Archives: 04.08.2016

Delphi. Как настроить TListView для работы с большим количеством данных?

Posted on 04.08.2016 by Stanislav_Panteleev

...
private
FSL:TStringList;
...

...

private

FSL:TStringList;

...

Например 1000 000 строк…

procedure TForm1.FormCreate(Sender: TObject);
var lc:TListColumn;
  i: Integer;
begin
     FSL:=TStringList.Create;
     for i := 0 to 1000000 do
     FSL.Add('somevalue '+i.ToString());

  //Вначале настроем массив

  //Вся настройка листвью тут
  //Виртуальный режим
  Listview1.OwnerData:=True;
  //Сделаем в виде колонок и добавим 2 колонки
  ListView1.ViewStyle:=vsReport;
  lc:=ListView1.Columns.Add;
  lc.Caption:='caption';
  lc.Width:=150;
  lc:=ListView1.Columns.Add;
  lc.Caption:='test';
  lc.Width:=150;

  //Ну и ещё пару моментов
  ListView1.RowSelect:=true;
  //Листвю должен знать, скоко у нас элементов.
  //Это число потом можно будет менять в процесе работы.
  ListView1.Items.Count:=FSL.Count-1; //Length(arr);
  //Листвью сам запросит нужные элементы, когда надо будет их отрисовать
  //Элементы запрашиваются в OnData
  Caption:=IntToStr(FSL.Count-1);
  //ListView1.UpdateItems(1,1);




end;

procedure TForm1.FormCreate(Sender: TObject);

var lc:TListColumn;

i: Integer;

begin

FSL:=TStringList.Create;

for i := 0 to 1000000 do

FSL.Add('somevalue '+i.ToString());

//Вначале настроем массив

//Вся настройка листвью тут

//Виртуальный режим

Listview1.OwnerData:=True;

//Сделаем в виде колонок и добавим 2 колонки

ListView1.ViewStyle:=vsReport;

lc:=ListView1.Columns.Add;

lc.Caption:='caption';

lc.Width:=150;

lc:=ListView1.Columns.Add;

lc.Caption:='test';

lc.Width:=150;

//Ну и ещё пару моментов

ListView1.RowSelect:=true;

//Листвю должен знать, скоко у нас элементов.

//Это число потом можно будет менять в процесе работы.

ListView1.Items.Count:=FSL.Count-1; //Length(arr);

//Листвью сам запросит нужные элементы, когда надо будет их отрисовать

//Элементы запрашиваются в OnData

Caption:=IntToStr(FSL.Count-1);

//ListView1.UpdateItems(1,1);

end;

OnData

procedure TForm1.ListView1Data(Sender: TObject; Item: TListItem);
begin
//Этот обработчик должен выдавать элемент по номеру.
//Точнее, есть Item, в которому нужно заполнить caption и subitems
//Номер элемента храниться в Item.index
item.Caption:=FSL[Item.Index]; // arr[item.Index].caption;
item.SubItems.Add((FSL[item.Index]));

end;

procedure TForm1.ListView1Data(Sender: TObject; Item: TListItem);

begin

//Этот обработчик должен выдавать элемент по номеру.

//Точнее, есть Item, в которому нужно заполнить caption и subitems

//Номер элемента храниться в Item.index

item.Caption:=FSL[Item.Index]; // arr[item.Index].caption;

item.SubItems.Add((FSL[item.Index]));

end;

После этого – информация подгружается по мере скролла – происходит это достаточно быстро.

Posted in Delphi | Comments Off

Daily Archives: 04.08.2016

Delphi. Как настроить TListView для работы с большим количеством данных?

MY PROJECTS

Recent Posts

Categories