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

Помощь - Поиск - Пользователи - Календарь

Полная версия этой страницы: Tlistbox и Directorylistbox1

Форум программистов > Системное программирование > Delphi и Pascal > Delphi - Система

ivan85325685

4:04:2008, 13:01

Начал делать Медиа Плеер, мне надо чтобы из DirectoryListBox1 в TListBox добавлялись файлы.
Тоесть, объясняю: Когда в Винампе Каталог с песнями добавляете, из него все эти песни берутся и добавляются в плей лист.
В качестве листа используется TListBox. Как это сделать в делфи? Одиночные файлы добавлять умею:

Код

procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
if not form1.OD.Execute then exit;
Form3.LB.Items.Add(form1.OD.FileName);
end;

Да и еще вопрос: Как сделать чтобы добавлялся не путь файла, а только его назвение?

sax_ol

4:04:2008, 13:09

1. в "Винампе Каталог с песнями" добавляется с помощью SelectDirectory.
2. form1.OD.Execute/form1.OD.FileName - тут form1 - ни к селу ...
3. ExtractFileName

ivan85325685

4:04:2008, 13:26

А можно по подробнее разъяснить
Вобщем если не трудно, Напишите пару примеров как это можно сделать.

sax_ol

4:04:2008, 13:28

F1 - там это разжевано и с примерами, скопировать сюда?

ivan85325685

4:04:2008, 13:30

Да скопировать. Только я В английском не очень.

sax_ol

4:04:2008, 13:31

Тогда не вижу смысла копировать ...

ivan85325685

4:04:2008, 13:36

Ну тогда обясните хотябы как переделать вышепреведенную процедуру чтобы в Листбоксе отображался не путь а имя файла.

sax_ol

4:04:2008, 13:39

Код

procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
if not OD.Execute then exit;
Form3.LB.Items.Add(ExtractFileName(OD.FileName));
end;

все, дальше сами

ivan85325685

4:04:2008, 13:49

Проблема!
Объясняю: первый файл добавляется в список - воспроизводится, второй файл добавляется в список - воспроизводится, но теперь не воспроизводится первый. Я думая программа не запоминает пути.
Помогите пожалуйсто!

sax_ol

4:04:2008, 14:00

Исполььзуйте Form3.LB.Items.AddObject()

Для просмотра полной версии этой страницы, пожалуйста, пройдите по ссылке.