в коммоненте LISTBOX должны отображаться MP3 файлы

[blackstersl]

помогите пожалуйста!!!! как мне сделать так чтобы в коммоненте LISTBOX1 отображались MP3 файлы.Заранее спасибо!!!!!

[DM_bite]

Не совсем понял вопрос.....

[MAcK]

Есть три процедуры
FindFirst
FindNext
Findclose
Используй их для нахождения всех файлов в заданном каталоге
и добавляй

ListBox.Items.Add('Имя файла');

[eoln]

procedure TForm1.Button1Click(Sender: TObject);
var
  SearchRec : TSearchRec;
begin
    if FindFirst(getcurrentdir+'\*.mp3', faAnyFile, SearchRec) = 0 then
    repeat
        if (SearchRec.Attr and faDirectory) <> faDirectory then
        begin
            Listbox1.items.Add(SearchRec.Name);
        end;
    until FindNext(SearchRec) <> 0;
    FindClose(SearchRec);
end;

Где вместо getcurrentdir можно взять любой путь

[Romanbl4]

procedure LoadList();
var SR: TSearchRec;
    extention: string;
    i: integer;
begin

  if Findfirst('C:\mymusic',faAnyFile,SR) = 0 then
  begin
    repeat
      for i:= length(SR.name) downto length(SR.name)-3 do
        extention := SR.name[i] + extention;
      if (extention = '.mp3') and (SR.Attr <> faDirectory)
        ListBox1.Items.Add(SR.name);
    until FindNext(sr) <> 0;
    FindClose(sr);
  end;
end;

[Romanbl4]

пока писал, уже кучу до меня написали

[Stilet]

Все вышесказанное можно упростить если нужно просматривать только в одной директории взяв вместо LISTBOX компонент FileListBox и задав ему в маске *.mp3