Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 17.05.2008, 22:57   #1
xakkkkker
Форумчанин
 
Аватар для xakkkkker
 
Регистрация: 15.12.2007
Сообщений: 226
По умолчанию Работа с ListBox

есть такой код

ListBox1.Clear;
// сформировать список МРЗ-файлов
if FindFirst(path+ '*.mp3', faAnyFile, SearchRec) = 0 then
begin
// в каталоге есть файл с расширением wav
// добавим имя этого файла в список
ListBox1.Items.Add(SearchRec.Name);
// пока в каталоге есть другие файлы с расширением wav
while (FindNext(SearchRec) = 0) do
ListBox1.Items.Add(SearchRec.Name);

это код добавляет файлы из директории с расширением мр3 в листбокс а мне нужно чтобы она добавилат только один файл, По моему это зависить от faAnyFile что нужно написать вместо этого чтобы добавить только один файл.......
end;
xakkkkker вне форума Ответить с цитированием
Старый 17.05.2008, 23:09   #2
eoln
Старожил
 
Аватар для eoln
 
Регистрация: 26.04.2008
Сообщений: 2,645
По умолчанию

Убери эти две строки
while (FindNext(SearchRec) = 0) do
ListBox1.Items.Add(SearchRec.Name)
и получишь только один MP3 (не wav)

faAnyFile - аттрибут для поиска
eoln вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Помогите!Работа с listbox spiteful41 Помощь студентам 5 21.07.2008 14:02
Работа с ListBox. CyberOrcX Компоненты Delphi 2 13.05.2008 18:41
C++.Visual Studio 2005.WinApp.Работа с ListBox mat90x Помощь студентам 10 21.04.2008 17:40
из ListBox в БД Spectre БД в Delphi 5 31.12.2007 13:58