Скачать: CL | DM;

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

← →
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 можно это сделать?

---

← →
Virgo_Style ©   (2006-05-31 21:26) [4]

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

Попробуй))

---

← →
Ivolg ©   (2006-06-06 21:54) [5]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.024 c