Виртуальный ListView

[HTTqp]

Есть код

var
Form1:TForm1;
i:Integer;
FileList: TStringList = nil; // Здесь будут наши данные для виртуального ListView

implementation
{$R *.dfm}


{Получение списка файлов}
procedure FindFiles(LV:TListView;ImgList:TImageList;Path:string);
var
WFD:WIN32_Find_Data;
HFile:THandle;
begin
 if not Assigned(FileList) then FileList := TStringList.Create else FileList.Clear;
 LV.Items.BeginUpdate;{Начинаем прорисовку}
 LV.Items.Clear;{Очистка ListView}
 Path:=Path;
 HFile:=FindFirstFile(PChar(Path+'*.*'),WFD);{Ищем файлы только в указанном каталоге}
 if HFile<>INVALID_HANDLE_VALUE then {Проверяем отсутствие ошибок}
  begin
   repeat
    if StrPas(WFD.cFileName)<>'.' then
     with LV.Items.Add do
      begin
       if (WFD.dwFileAttributes and faDirectory)<>faDirectory then{Проверка что это не папка}
        begin
         Caption:=ChangeFileExt(WFD.cFileName,'');
         SubItems.Add('...');
         SubItems.Add('...');{Размер файла}
        end else
         begin
          Caption:=(WFD.cFileName);{Имя папки}
          SubItems.Add('[Папка]');{Указываем что это папка}
          SubItems.Add('...');{Размер папки}
         end;
        SubItems.Add('...');
        SubItems.Add('...');
      end;
      application.ProcessMessages;  { Чтобы форма не сильно тормозила во время поиска}
   until FindNextFile(HFile,WFD)<>True;
   Winapi.Windows.FindClose(HFile);
  end;
  LV.Items.EndUpdate;{Заканчиваем прорисовку файлов}
  LV.Items.Count := FileList.Count;
  LV.Invalidate; // И на всякий случай обновляем его
end;

procedure TForm1.ListView1Data(Sender: TObject; Item: TListItem);
begin
  if Assigned(FileList) and (Item.Index < FileList.Count) then
  begin
    Item.Caption := FileList[Item.Index];
  end;
end;

из-за папок с большим количеством файлов решил пользоваться виртуальным ListView но почему то загружается пустой ListView. Причиной почему процедура FindFiles выведена отдельно, потому что требуется вывод не в один ListView, но для каждого нужно сделать чтобы был виртуальный ListView.
OwnerData у ListView = True, но он все равно пуст как быть, подскажите пожалуйста.

[ZuBy]

а разве в там отрисовывать самому не нужно? (немного забыл уже vcl, поправьте если не так)

[Stilet]

почему то загружается пустой ListView

Отладкой проходил?

разве в там отрисовывать самому не нужно?

В ЛистВью? Нет.

[min@y™]

Если ListView виртуальный, то вот это лишнее, выкинь:

 with LV.Items.Add do
      begin
       if (WFD.dwFileAttributes and faDirectory)<>faDirectory then{Проверка что это не папка}
        begin
         Caption:=ChangeFileExt(WFD.cFileName,'');
         SubItems.Add('...');
         SubItems.Add('...');{Размер файла}
        end else
         begin
          Caption:=(WFD.cFileName);{Имя папки}
          SubItems.Add('[Папка]');{Указываем что это папка}
          SubItems.Add('...');{Размер папки}
         end;
        SubItems.Add('...');
        SubItems.Add('...');
      end;

Вот, посмотри. Выдрал из своего проекта не глядя:

procedure TMainForm.ListViewData(Sender: TObject; Item: TListItem);
var
  Member: TMember;
begin
  Member:= FMemberList[Item.Index];
  Item.Caption:= Member.Name;
  Item.SubItems.Add(IntToStr(Member.Rating));
  Item.SubItems.Add(DateTimeToStrEx(Member.LastVisit));
  Item.SubItems.Add(IntToStr(Member.Place));
  Item.ImageIndex:= Integer(Member.Gender);
  Item.Data:= Member;
end;

procedure TMainForm.UpdateListView;
begin
  // Обновление списка
  FMemberList.CalcPlaces();
  ListView.Items.Count:= FMemberList.Count;
  ListView.Invalidate();
end;

Статья по сабжу.

[HTTqp]

Сообщение от min@y™

Если ListView виртуальный, то вот это лишнее, выкинь:

 with LV.Items.Add do
      begin
       if (WFD.dwFileAttributes and faDirectory)<>faDirectory then{Проверка что это не папка}
        begin
         Caption:=ChangeFileExt(WFD.cFileName,'');
         SubItems.Add('...');
         SubItems.Add('...');{Размер файла}
        end else
         begin
          Caption:=(WFD.cFileName);{Имя папки}
          SubItems.Add('[Папка]');{Указываем что это папка}
          SubItems.Add('...');{Размер папки}
         end;
        SubItems.Add('...');
        SubItems.Add('...');
      end;

Статья по сабжу.

Как я это уберу если по этому коду происходит заполнение, если уберу заполнение нужных полей не будет происходить!

[min@y™]

Как я это уберу если по этому коду происходит заполнение, если уберу заполнение нужных полей не будет происходить!

Виртуальный ListView потому и виртуальный, что данные он не хранит, а только отображает. Причём только те, что в окно влазят. Покури интернеты, статей 100500 ахулиардов штук по этому поводу понаписали.

Я ж тебе пример свой выдрал. У меня данные хранятся в списке в памяти:

Member:= FMemberList[Item.Index]; // <--- FMemberList - это список с данными

Если интересно, вот код этого класса-списка.

[evg_m]

Как я это уберу если по этому коду происходит заполнение, если уберу заполнение нужных полей не будет происходить!

заполнять надо не ListView а СВОЮ внутреннюю таблицу.

FileList: TStringList = nil; // Здесь будут наши данные для виртуального ListView

их там нет вот и пустой список. (он не пустой, но все строки в нем пустые!)

[HTTqp]

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

заполнять надо не ListView а СВОЮ внутреннюю таблицу.

их там нет вот и пустой список. (он не пустой, но все строки в нем пустые!)

А как сделать чтобы было заполнение правильно? Пожскажите пожалуйста, не могу разобраться ни как.

[min@y™]

Пожскажите пожалуйста, не могу разобраться ни как.

Я тебе кусок исходника подарил. Ты его смотрел или нет?

[HTTqp]

Сообщение от min@y™

Я тебе кусок исходника подарил. Ты его смотрел или нет?

В том то и косяк что ты выдрал, и вобще не понятно что там хоть бы откоментил, Member: TMember я как понял это новый тип, но остальное откуда ты взял фиг знает.