[Dúvida] Como Salvar uma Playlist

Delphi

01/08/2011

Olá amigos,
Estou precisando da ajuda de vocês para salvar uma Playlist do meu media player.

Tenho um ListBox que recebe os nomes das músicas;
Coloquei um Opendialog e um Save dialog;

Configurei o Savedialogs em filter para receber mp3 e savedialog para receber txt. Default também é txt.

Coloquei os seguintes comandos nos botões:

Salvar:
 

var
ArquivoTexto : TextFile;
 NomeArquivo : String;
 begin
 if(SaveDialog1.Execute)then
 begin
 NomeArquivo := SaveDialog1.FileName;
 showmessage('Arquivo Salvo com Sucesso - Parabéns!!!!');
 


Abrir:
 
var index:integer;
  begin
  if OpenDialog1.Execute then
    begin
     for index:=0 to OpenDialog1.Files.Count-1 do
     ListBox1.Items.Add(ExtractFileName( OpenDialog1.Files[index]));
    end;
  end;



Não sei onde estou errando pois não estão funcionando para salvar e abrir a lista.

alguém pode me ajudar?!

Obrigado!
Jore

Jore

Curtidas 0
POSTAR