[HTTqp]

Как сделать чтобы данный поиск был через виртуальный listview

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54

Получение списка файлов и информации о них} procedure TForm1.UpdateFile(LV:TListView;aPath:String); var Handle:THandle; FindData:TWin32FindData; temp_ext,Temp_Cap,result:String; Folders:TStringList; i,te:Byte; begin LV.Items.BeginUpdate; //Начинаем прорисовку списка файлов LV.Items.Clear; //Очищаем LV Handle:=FindFirstFile(PChar(aPath+'*.*'),FindData); if Handle<>INVALID_HANDLE_VALUE then  try   Folders:=TStringList.Create;   while FindNextFile(Handle,FindData) do   begin     Temp_Cap:=ExtractFileName(FindData.cFileName); //Имя файлов     temp_ext:=ExtractFileExt(FindData.cFileName); //Формат(расширение)     if (FindData.dwFileAttributes and faDirectory)=faDirectory then Folders.Append(Temp_Cap)      else    with LV.Items.Add do    begin     if (FindData.dwFileAttributes and faDirectory)<>faDirectory then     begin       for te:=1 to length(Temp_Cap) do       if Temp_Cap[te]='.' then       Caption:=copy(Temp_Cap,1,te-1);       SubItems.Add(Copy(temp_ext,2,Length(temp_ext)-1));       SubItems.Add(FloatToStrF(FindData.nFileSizeHigh+FindData.nFileSizeLow,ffNumber,18,0));     end       else       SubItems.Add('');       SubItems.Add(FileTimeToDateTimeStr(FindData.ftLastWriteTime));       Result:='';       if (FILE_ATTRIBUTE_ARCHIVE and FindData.dwFileAttributes)>0 then Result:=Result+'a' else Result:=Result+'-';  //       if (FILE_ATTRIBUTE_READONLY and FindData.dwFileAttributes)>0 then Result:=Result+'r' else Result:=Result+'-'; //Только чтение       if (FILE_ATTRIBUTE_HIDDEN and FindData.dwFileAttributes)>0 then Result:=Result+'h' else Result:=Result+'-';   //Скрытые       if (FILE_ATTRIBUTE_SYSTEM and FindData.dwFileAttributes)>0 then Result:=Result+'s' else Result:=Result+'-';   //Системные       SubItems.Add(Result);     end;    end;   for i:=0 to Folders.count-1 do with LV.Items.insert(i) do   begin    SubItems.Add('[Папка]');    SubItems.Add('');    SubItems.Add(FileTimeToDateTimeStr(FindData.ftCreationTime));    Caption:=Folders[i];   end;   Folders.Free;   finally   LV.Items.EndUpdate; //Закончить прорисовку файлов   end; end;