Hay! Biete verscheiben in richtigen Thread!
Also ich habe nun nen MEdia player mit play list! Ich speichere und öffne die dateien mit einem Dialog:
Delphi-Quelltext
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12:
| begin if savedlg.Execute then begin Listbox1.Items.SaveToFile(savedlg.FileName); end; end; procedure TForm1.Importieren1Click(Sender: TObject); begin if opendlg.Execute then begin AddToPlayList(opendlg.Filename); end; |
Jetzt kann ich die zwar wieder heraufholen die List aber spielen kann es die songs net es kommmt immer:
List index out of bounds!