[DeDyJIR]

Привет народ! Пишу маленький медиа плеер. Проблема с сохранением и загрузкой плейлиста. Использую два листбокса, в одном хранятся только названия песен, а в другом пути к ним. Подскажите как сохранить плейлист ввиде:
[playlist]
track: имя песни { из первого листбокса }
path: путь к песни { из второго листбокса }
track: имя песни
path: путь к песни
track: имя песни
path: путь к песни
[/playlist]
А затем из этого файла загрузить его. Заранее спасибо.

[moo2k]

Используй формат .m3u. Я уже отвечал в разделе "Мультимедия" на похожий вопрос.

[aleksnine]

Ну попробуй так

Код:

Procedure SavePL(Filename:string;LB1,LB2:Tlistbox);
var
i,c1,c2:integer;
T:textfile;
begin
AssignFile(t,FileName);
ReWrite(t);
c1:=lb1.Items.Count;
c2:=lb2.Items.Count;
if c1<>c2 then exit;
for i:=0 to c2 -1 do begin
writeln(t,'Track: ' + lb1.items.strings[i]);
writeln(t,'Path: ' + lb2.items.strings[i]);
end;
closefile(t);
end;

Код:

savepl('C:\1.txt',listbox1,listbox2);

[DeDyJIR]

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

Ну попробуй так

Код:

Procedure SavePL(Filename:string;LB1,LB2:Tlistbox);
var
i,c1,c2:integer;
T:textfile;
begin
AssignFile(t,FileName);
ReWrite(t);
c1:=lb1.Items.Count;
c2:=lb2.Items.Count;
if c1<>c2 then exit;
for i:=0 to c2 -1 do begin
writeln(t,'Track: ' + lb1.items.strings[i]);
writeln(t,'Path: ' + lb2.items.strings[i]);
end;
closefile(t);
end;

Код:

savepl('C:\1.txt',listbox1,listbox2);

А как теперь это обратно загрузить?

[moo2k]

Используй Reset() и readln().