Цитата:
Сообщение от valvl63
lmikle
проверьте, пожалуйста, код процедуры.
Код:
procedure FindMp3(ADir : String; AFilter : String; ASubfolders : Boolean);
|
А чего его проверять-то?
Из моего комментария внизу понятно, что код писался прямо здесь, а не в среде. Соответсвенно, могут быть мелкие ошибка и опечатки. Никто сразу "из коробки" работающий код не обещал, но идея изложена полностью.
ЗЫ. Да, набросать здесь код, а потом еще ответить, быстрее, чем запускать Дельфи, писать там и проверять (еще ведь надо создать на диске соотв. структуры). Если уж сам не можешь разобраться, то пиши конкретно в чем проблема.
ЗЗЫ. Пару очепяток поправил.