Поиск файлов и загрузка из ListBox'a

[waka2ebawer]

знаю там одно copy-past
но все же что не так
p.s. у меня там загружается как из listbox'a так и есть просто кнопка Загрузить

p.s.s. создайте в корне папку и в ней должны быть звуки
и через comboBox заргужать
и проблема то из комбобокса в листбокс а из листбокса должно по кнопкам распдередялть и по mediaplayer который mp
но mp не видит ничего так как у него загрузка из fullname

[ReportCube]

Посмотрел код
1. Программа при старте выбирает все файлы в своём корне. Не есть правильно. Более того - готова принять любые файлы, ограничений нет. Аналогично при открытии файла и, как результат, Кря в обработчиках.
2. Для каждой кнопки свой обработчик, хотя действия абсолютно одинаковы. Сделайте один обработчик для группы аналогичных - один код, меньше программа, проще отладка.
3. Зачем столько медиаплееров? Совместное воспроизведение всего и вся?
4. Зачем все эти кнопки? Вы собираетесь загрузить плейлист и воспроизвести? Так масса аналогичного - посмотрите их интерфейс и для начала попробуйте воспроизвести нечто похожее.
5. Зачем двадцать диалогов открытия файла. Создавайте каждый раз новый в обработчике, а по окончании работы разрушайте его
6. Но прежде всего - форматируйте правильно код. Для начала просто войдите в один из модулей исходников и пишите по аналогии. Вам же будет легче.

[ReportCube]

ОК, понятно. Смотрим обработчик Button41Click, где создаётся массив размерностью в 20 элементов.

  
  for i := 0 to ListBox1.Items.Count - 1 do begin
     B := FindComponent('Button' + IntToStr(i+1)) as TButton;
     M := FindComponent('mp' + IntToStr(i+1)) as TMediaPlayer;
     if (nil <> B) then // Отлично, нашли Button22 кнопку
     begin
        //Что будет здесь? В массиве всего 20
       fullname[i+1] := ListBox1.Items[i];
       B.Caption := ExtractFileName(fullname[i+1]) + ' Play';
     end;
  end;

[waka2ebawer]

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

ОК, понятно. Смотрим обработчик Button41Click, где создаётся массив размерностью в 20 элементов.

  
  for i := 0 to ListBox1.Items.Count - 1 do begin
     B := FindComponent('Button' + IntToStr(i+1)) as TButton;
     M := FindComponent('mp' + IntToStr(i+1)) as TMediaPlayer;
     if (nil <> B) then // Отлично, нашли Button22 кнопку
     begin
        //Что будет здесь? В массиве всего 20
       fullname[i+1] := ListBox1.Items[i];
       B.Caption := ExtractFileName(fullname[i+1]) + ' Play';
     end;
  end;

ты вообще видел форму?
баттон22 вообще какая?
у меня там все нормально 20 под музыку
и другие 20 под загругку через диалог

[ReportCube]

Форму видел и не понял твоё возмущение. Повнимательнее! Мне, в общем то, всё равно, можешь оставить всё "как есть".
В директории оказалась сотня файлов, список которых аккуратно загрузился в TListBox. Запускаем цикл, ищем по имени TButton. Твой цикл что-нибудь знает о "20 под музыку и других 20 под загрузку через диалог"? Думать надо, а не обижаться

[waka2ebawer]

я понимаю , и я потом все сделаю и ограничение по файлам и по расширению, но мне надо понять как сделать чтобы из ListBox'a загружалось в 20 плееров,( и мне надо чтобы не один плеер был а именно несколько чтобы поточно воспроизводить)

[ReportCube]

Ещё раз - читайте и думайте. В потоках VCL не работают(!!!), в том числе и медиаплееры, именно поэтому 20 штук на форме абсолютно бесполезны. В цикле проверяйте размерность массива - при превышении выходите из цикла. Если рядом с Вами есть кто-нибудь - покажите ему Вашу форму и спросите: "Зачем нужно вот это?", а потом ещё раз подумайте.