|
#1
|
|||
|
|||
Поиск mp3 файла
Здравстрвуйте.
Делаю поиск mp3 файла. Прописываю имя файла в edit1, маска в combobox1, выбор дисков в edit2. Процедура: Код:
procedure Find; var SearchRec: TSearchRec; cDir: string; begin GetDir(0,cDir); if cDir[length(cDir)] <> '\' then cDir := cDir+'\'; if FindFirst(FileName,faAnyfile,SearchRec) = 0 then repeat if (SearchRec.Attr and faAnyfile) = SearchRec.Attr then begin Form1.listbox1.Items.Add(cDir + SearchRec.Name); end; until FindNext(SearchRec) <> 0; if FindFirst('*', faDirectory, SearchRec) = 0 then repeat if (SearchRec.Attr and faDirectory) = faDirectory then if SearchRec.Name[1] <> '.' then begin ChDir(SearchRec.Name); Find; ChDir('..'); end; until FindNext(SearchRec) <> 0 ; end; Что меня не устраивает - поиск производится по первой букве. Тойсь. Если вписываю в edit1 слово Пугачева, тогда находит Пугачева - Айсберг, если пишу слово Айсберг - ничего не находит. Дальше. На диске D ищет без ошибок, на диске E с ошибкой "I/O error 123" (пробовал использовать try except end) не помогает), на диске C выскакивает сообщение "File not found", хотя файлы нужные выводит в Listbox1. Что тут может быть не так? Помогите пожалуйста. Извиняюсь, что поместил тему в Мультимедиа, так как это повязано с плейером. |