| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Поиск файла в папке [D7, WinXP]

valent ©   (2006-05-31 20:00:00) 

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

---

Ivolg   (2006-06-06 21:54:00) [1]

Расположи у себя на форме 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.

---

Virgo_Style   (2006-05-31 21:26:00) [2]

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

Попробуй))

---

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

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

---

Desdechado   (2006-05-31 20:38:00) [4]

ListView.ItemIndex := ListView.Items.IndexOf(

---

Джо   (2006-05-31 20:14:00) [5]

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

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

---

Наверх