[valvl63]

Здравстрвуйте.
Делаю поиск mp3 файла.
Прописываю имя файла в edit1,
маска в combobox1,
выбор дисков в edit2.

Процедура:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26

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.
Что тут может быть не так?
Помогите пожалуйста.
Извиняюсь, что поместил тему в Мультимедиа, так как это повязано с плейером.

[lmikle]

Зачем так сложно?

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

uses Masks;   procedure FindMp3(ADir : String; AFilter : String; ASubfolders : Boolean); var   F : TSearchRec;   iFound : Integer; begin   ADir := IncludeTrailingPathDelimiter(ADir);   iFound := FindFirst(ADir + '*.*',faAnyFile,F);   While iFound = 0 Do     Begin       If (F.Name <> '.') And (F.Name <> '..') Then         Begin           If ((F And faDirectory) <> 0) And ASubfolders             Then FindMP3(ADir + F.Name,AFilter,ASubfolders)             Else               If MatchesMask('*'+AFilter+'*.mp3',FName) Then                  Form1.ListBox.Items.Add(ADir + F.Name);         End;       iFound := FindNext(F);     End;   FindClose(F); end;

И вся любовь...
ЗЫ. Не помню точно в какой последовательности идут параметры в MatchesMask, может маску и имя файла надо поменять местами. Ну и список, куда добавляются файлы написал "от балды", поправишь соответсвенно.

[valvl63]

lmikle
проверьте, пожалуйста, код процедуры.

Код:

1	procedure FindMp3(ADir : String; AFilter : String; ASubfolders : Boolean);

[lmikle]

Сообщение от valvl63

lmikle
проверьте, пожалуйста, код процедуры.

Код:

А чего его проверять-то?
Из моего комментария внизу понятно, что код писался прямо здесь, а не в среде. Соответсвенно, могут быть мелкие ошибка и опечатки. Никто сразу "из коробки" работающий код не обещал, но идея изложена полностью.

ЗЫ. Да, набросать здесь код, а потом еще ответить, быстрее, чем запускать Дельфи, писать там и проверять (еще ведь надо создать на диске соотв. структуры). Если уж сам не можешь разобраться, то пиши конкретно в чем проблема.

ЗЗЫ. Пару очепяток поправил.

[valvl63]

Привет!
Поиск работает, но есть ещё один вопрос.
Можно как нить сделать, чтобы поиск не реагировал на регистр?
Спасибо.

[Страдалецъ]

В смысле? У вас результат выполнения этой процедурки разный на имени файла с большой и маленькой буквы?
Не должно бы вообще-то быть такого. FindFirst, FindNext не чувствительны к регистру насколько я помню.

[valvl63]

Прописываю: Полька, ПОЛЬКА, полька. Ищет что написано.