VPF::Поиск текста - Форум программистов

akosh12345

Дата 3.6.2010, 12:07 (ссылка)

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

Загрузка ...

Новичок

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

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

Есть функция у ListView FIndCaption. Она не работает при виртуальном режиме. Мне нужно найти строку. Допуским у меня 30 000 файлов в ListView. Если я буду делать через цикл будет занимать очень большое количество времени. Как мне сделать быстрый поиск текса в ListView при виртуальном режиме?

bems

Дата 5.6.2010, 01:07 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 21
Всего: 88

В виртуальном режиме listview не хранит данные, а ты сам отдаешь их ему в соответствующем событии. Вот и ищи в своих данных, а не в ListView

--------------------

Обижено школьников: 8

akosh12345

Дата 5.6.2010, 16:04 (ссылка)

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

Загрузка ...

Новичок

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

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

получается мне нужно сделать цикл, в нем перебирать все значения Item ?

bems

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

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

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 21
Всего: 88

Почему Item? как ты возвращаешь текст в событии компонента?

--------------------

Обижено школьников: 8

akosh12345

Дата 5.6.2010, 19:34 (ссылка)

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

Загрузка ...

Новичок

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

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

Вообще использую виртуальный режим.

FIDLISTLEFT - типа TList, в котором хранится списки файлов.

Код


procedure TMain.ListViewLeftData(Sender: TObject; Item: TListItem);
var
   Attrs: string;
   NameFIle : String;
   Exs : string;
   P : integer;
begin
      if (Item.Index > FIDListLeft.Count) then Exit;
      with ShellItem(Item.Index, FIDListLeft)^ do
      begin
        if IsFolder(FIShellFolderAAA, ID) then Item.Caption := Format('[%s]',[DisplayName]) else
         Begin
           NameFIle := DisplayName;
           Exs := ExtractFileExt(NameFIle);

           P := pos(exs, NameFile );
           Delete (NameFile,P , Length(NameFile));
           Item.Caption := NameFIle;
         end;

        If Item.Caption = '' then
         begin
            Item.Caption := '[..]';
            Item.ImageIndex := ImageIndex;
            Item.SubItems.Add('');
            item.SubItems.Add('<папка>');
         end
            Else
             BEGIN
              Item.ImageIndex := ImageIndex;


              If IsFolder(FIShellFolderAAA, ID) then Item.SubItems.Add('') else Item.SubItems.Add(Extension );

              if not IsFolder(FIShellFolderAAA, ID) then
                Item.SubItems.Add( FloatToStr(Size) + ' '+ SizeBKBMBGMTM)
              else
                Item.SubItems.Add('<папка>');
              try
                Item.SubItems.Add(ModDate);
              except
              end;

              if Bool(Attributes and FILE_ATTRIBUTE_READONLY) then Attrs := Attrs + 'r' else Attrs := Attrs + '-';
              if Bool(Attributes and FILE_ATTRIBUTE_HIDDEN) then Attrs := Attrs + 'h' else Attrs := Attrs + '-';
              if Bool(Attributes and FILE_ATTRIBUTE_SYSTEM) then Attrs := Attrs + 's' else Attrs := Attrs + '-';
              if Bool(Attributes and FILE_ATTRIBUTE_ARCHIVE) then Attrs := Attrs + 'a' else Attrs := Attrs + '-';

      end;
      Item.SubItems.Add(Attrs);
             END;


end;

Это сообщение отредактировал(а) bems - 5.6.2010, 21:30

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