Поиск файла в папке

← →
valent (2006-05-31 20:00) [0]

Может кто натолкнёт на мысль
Скажем в папке с огромным кол-вом файлов (фотки) нужно найти один по названию. Но чтоб не в новом окне показать, как в explorere, а просто маркировать в ListView.

← →
Джо © (2006-05-31 20:14) [1]

> valent (31.05.06 20:00)
> Может кто натолкнёт на мысль
> Скажем в папке с огромным кол-вом файлов (фотки) нужно найти
> один по названию.

А зачем его искать-то, если имя и так известно? :unsure:

← →
Desdechado © (2006-05-31 20:38) [2]

ListView.ItemIndex := ListView.Items.IndexOf(

← →
valent (2006-05-31 21:21) [3]

Хотелось бы как в БД, вводишь напр. в TEdit первую букву, вторую и т. д.
чтобы быстро найти файл( в папке может находится 1000 - 5000 файлов) .
Грубо говоря быстро выбрать файл из списка.
А интересно в самом explorere можно это сделать?

valent (31.05.06 21:21) [3]
А интересно в самом explorere можно это сделать?

Попробуй))

Расположи у себя на форме 3 компонента: FileListBox (Вкладка Samples), Edit и ListBox... Далее сделай следущее:

procedure TForm1.FormCreate(Sender: TObject); begin FileListBox1.Directory:="Твоя дерриктория"; end; procedure TForm1.Edit1Change(Sender: TObject); var s,s2,s3,s4:string; i:integer; begin ListBox1.Clear; i:=0; for i:=0 to FileListBox1.Count-1 do begin s:=edit1.Text; s2:=copy(s,1,Length(edit1.Text)); s3:=FileListBox1.Items[i]; s4:=copy(s3,1,Length(edit1.Text)); if s2=s4 then begin ListBox1.Items.Add(s3); end; end; end; end.

Поиск файла в папке Найти похожие ветки