Помощник
 |
|
Разработка бизнес сайтов Нужны клиенты? Тогда сюда быстрее... |
Сообщение сайта
Здравствуйте, гость ( Вход | Регистрация )
 Tlistbox и Directorylistbox1 |
|
|
 4:04:2008, 13:01
 
|
|
Новенький  Группа: Программист Сообщений: 5 Регистрация: 4:04:2008 Пользователь №: 16 381 Репутация:  0 
 |
Начал делать Медиа Плеер, мне надо чтобы из DirectoryListBox1 в TListBox добавлялись файлы.
Тоесть, объясняю: Когда в Винампе Каталог с песнями добавляете, из него все эти песни берутся и добавляются в плей лист. В качестве листа используется TListBox. Как это сделать в делфи? Одиночные файлы добавлять умею: Код procedure TForm1.SpeedButton2Click(Sender: TObject); begin if not form1.OD.Execute then exit; Form3.LB.Items.Add(form1.OD.FileName); end; Да и еще вопрос: Как сделать чтобы добавлялся не путь файла, а только его назвение? |
 |
Сообщение
#1
|
 |
|
|
4:04:2008, 13:09
|
|
============== Группа: Модеры Сообщений: 1 740 Регистрация: 11:01:2007 Пользователь №: 8 750 Специализация: specialist Репутация: 27
|
1. в "Винампе Каталог с песнями" добавляется с помощью SelectDirectory.
2. form1.OD.Execute/form1.OD.FileName - тут form1 - ни к селу ... 3. ExtractFileName |
|
|
Сообщение
#2
|
|
|
4:04:2008, 13:26
|
|
Новенький Группа: Программист Сообщений: 5 Регистрация: 4:04:2008 Пользователь №: 16 381 Репутация: 0
|
А можно по подробнее разъяснить
Вобщем если не трудно, Напишите пару примеров как это можно сделать. Сообщение отредактировал ivan85325685 - 4:04:2008, 13:29 |
|
|
Сообщение
#3
|
|
|
4:04:2008, 13:28
|
|
============== Группа: Модеры Сообщений: 1 740 Регистрация: 11:01:2007 Пользователь №: 8 750 Специализация: specialist Репутация: 27
|
F1 - там это разжевано и с примерами, скопировать сюда?
|
|
|
Сообщение
#4
|
|
|
4:04:2008, 13:30
|
|
Новенький Группа: Программист Сообщений: 5 Регистрация: 4:04:2008 Пользователь №: 16 381 Репутация: 0
|
Да скопировать. Только я В английском не очень.
|
|
|
Сообщение
#5
|
|
|
4:04:2008, 13:31
|
|
============== Группа: Модеры Сообщений: 1 740 Регистрация: 11:01:2007 Пользователь №: 8 750 Специализация: specialist Репутация: 27
|
Тогда не вижу смысла копировать ...
|
|
|
Сообщение
#6
|
|
|
4:04:2008, 13:36
|
|
Новенький Группа: Программист Сообщений: 5 Регистрация: 4:04:2008 Пользователь №: 16 381 Репутация: 0
|
Ну тогда обясните хотябы как переделать вышепреведенную процедуру чтобы в Листбоксе отображался не путь а имя файла.
|
|
|
Сообщение
#7
|
|
|
4:04:2008, 13:39
|
|
============== Группа: Модеры Сообщений: 1 740 Регистрация: 11:01:2007 Пользователь №: 8 750 Специализация: specialist Репутация: 27
|
Код procedure TForm1.SpeedButton2Click(Sender: TObject); все, дальше сами
begin if not OD.Execute then exit; Form3.LB.Items.Add(ExtractFileName(OD.FileName)); end; |
|
|
Сообщение
#8
|
|
|
4:04:2008, 13:49
|
|
Новенький Группа: Программист Сообщений: 5 Регистрация: 4:04:2008 Пользователь №: 16 381 Репутация: 0
|
Проблема!
Объясняю: первый файл добавляется в список - воспроизводится, второй файл добавляется в список - воспроизводится, но теперь не воспроизводится первый. Я думая программа не запоминает пути. Помогите пожалуйсто! |
|
|
Сообщение
#9
|
|
|
4:04:2008, 14:00
|
|
============== Группа: Модеры Сообщений: 1 740 Регистрация: 11:01:2007 Пользователь №: 8 750 Специализация: specialist Репутация: 27
|
Исполььзуйте Form3.LB.Items.AddObject()
|
|
|
Сообщение
#10
|
|
|
Текстовая версия | Сейчас: 17:05:2008 - 11:20 |
