Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.45 MB
Время: 0.009 c
4-1143196595
Тфьу
2006-03-24 13:36
2006.06.25
Как запретить стандартную прокрутку от колеса мыши?


15-1149208471
TButton
2006-06-02 04:34
2006.06.25
(JS) mouse event в FireFox


3-1146121628
Ильичев С.А.
2006-04-27 11:07
2006.06.25
SELECT после INSERT


2-1149410296
Wood
2006-06-04 12:38
2006.06.25
Найстройка bevel


2-1149505921
FiJer
2006-06-05 15:12
2006.06.25
Как можно выровнить текст в Edit по вертикали?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский