Поиск файлов в TShellListView

[WhitePoint]

Здравствуйте. уже обыскался, нигде ничего подобного найти не смог. Компонент TShellListView, в нем, допустим уже открыта папка с кучей файлов, названных по дате в формате "dd.mm.yyyy.xls". Есть так же MaskEdit, с маской такого же формата, нужно организовать поиск (лучше быстрый), который бы хотя бы выделял найденный файл в TShellListView.

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

[WhitePoint]

видимо неохота возиться, или никто не знает. вот что я выяснил.
пробовал вытащить имя items.

shelllistview.items.item[1].Caption

возвращает ноль.
пробовал

ShowMessage(ShellListView1.items.item[1].GetNamePath);

возвращает "TListItem" ... что с этим делать - неясно.Судя по всему, разработчики не довели до конца эти компоненты в виду того, что tshelllistview можно изменить имя файла, к примеру. а если к примеру ввести " " в имя файла, то программа вылетает. это я понимаю. но логичным бы было оставить Caption хотя-бы для чтения?? =(

вобщем я раздосадован, но все еще надеюсь, что кто-то из вас с этим сталкивался и чем-то сможет помочь

[mihali4]

Почитайте, может, натолкнет на светлую мысль:
http://www.delphisources.ru/pages/fa...file_path.html

А вот кросспостингом заниматься не нужно.
Ставлю двойку.

[WhitePoint]

Спасибо, это я в отчаянии. к тому же здесь студенты так часто постят свои задачки, что моя тема ушла на вторую страницу в первые полчаса. Потому и создал вторую тему в компонентах. Виноват, согласен.
и за ссылку спасибо, примерно к такому же решению я пришел со своим однокурсником.

for i:=0 to sh.Items.Count-1 do
   begin
       sh.folders[i].pathname=edit.text then {действия.}
   end;

ну... вобщем...

[Stilet]

ужно организовать поиск (лучше быстрый), который бы хотя бы выделял найденный файл в TShellListView.

С этим компонентом быстрого поиска не получится, ибо каждое раскрытие папки приводит к автоматическому запуску поисковика в него встроенного.

[WhitePoint]

С этим компонентом быстрого поиска не получится

Это я уже понял, рад хотя бы тому, что найдено решение по обычному поиску! но как же Выделить найденный объект? Нахожу вот как:

procedure TForm1.Button4Click(Sender: TObject);
var a:TListItem;
begin

for i:=0 to ShellListView1.Items.Count-1 do
   begin
       if ExtractFilename(ShellListView1.folders[i].PathName)=MaskEdit1.Text
            then
              {здесь бы найденный folder[i] выделить}
              showmessage('файл найден');
   end;

end;

больше с ним делать ничего не нужно. Не знаете как выделить?

[mihali4]

Вы же индекс его находите. Поэтому просто:

ShellListView1.ItemIndex:=i;

[WhitePoint]

Большое спасибо!