Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум программистов _ Delphi - Система _ Tlistbox и Directorylistbox1

Автор: 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()