Текущий архив: 2006.06.25;
Скачать: 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 вся ветка
Текущий архив: 2006.06.25;
Скачать: CL | DM;
Память: 0.48 MB
Время: 0.029 c
