Показать сообщение отдельно
  #3  
Старый 16.07.2009, 06:46
Аватар для r1x
r1x r1x вне форума
Начинающий
 
Регистрация: 15.07.2009
Адрес: KZ, Pavlodar
Сообщения: 110
Репутация: 10
По умолчанию

Попробуй..так
Открываешь файл через OpenDialog1.FileName, затем поставь условие если это <mp3,wav,wma,avi...и тд> тогда добвить в список путь к файлу, а если это <m3u,pls> тогда загрузить этот список.

<Не больой примерчик>

Код:
var i:integer;
mfile:string;   // Расширение файла...
begin
if OpenDialog1.Execute then
   begin
       for i:=1 to length(OpenDialog1.FileName) do  //Узнаем расширение файла
         begin         
          if OpenDialog1.FileName[i]='.' then 
           mfile:=copy(OpenDialog1.FileName,i+1,length(OpenDialog1.FileName);
         end;
//Ставим условие
           if (mfile='mp3') or (mfile='wav') then
               listbox1.items.add(OpenDialog1.FileName);
           if (mfile='m3u') or (mfile='pls') then
              listbox1.items.LoadFromFile(OpenDialog1.FileName)
   end;

Ну вот что то накатал))) возможно есь ошибки под корректируйдумаю должно заработать
__________________
[ iNewStar.Ru ] - Продам!
Вопросы в ПМ
Ответить с цитированием