Hallo,
mein Problem ist folgendes:
Ich fülle eine
Listbox mit MP3-Files. Eine parallele TStringlist wird als Liste.txt mit abgespeichert.
Zum abspielen der MP3 Files langt ein Doppelklick in der
Listbox und er holt über den Index die abzuspielende Datei.
Wenn ich einen Ordner 2 x in die
Listbox einlese, landen auch diese Einträge (add) in die TStringlist.
Klicke ich in der
Listbox von Anfang beginnend auf eine Datei, selektiert der diese und spielt diese ab.
Klicke ich in der Liste etwas tiefer auf den gleichen Eintrag, springt er in der
Listbox hoch zum gleichnamigen und selectiert den oben und spielt diesen ab.
Wie kann das ?
Delphi-Quellcode:
procedure Tmediaplayer_frm.PlayFile(songNumber: integer);
begin
if fileexists(Playlist.Strings[songNumber]) then
begin
CurrentSong := songNumber;
playsong := Playlist.Strings[songNumber];
playsong_name := PlayList_ListBox.Items.Strings[songNumber];
bassplayer.play(playsong);
trackbar_position.MaxValue := BassPlayer.length;
media_scroll_txt_run;
show_tracktime;
PlayList_ListBox.Refresh;
end;
end;
Delphi-Quellcode:
procedure Tmediaplayer_frm.PlayList_ListBoxDblClick(Sender: TObject);
var i : integer;
begin
for i := 0 to PlayList_Listbox.Count- 1 do
if PlayList_ListBox.Selected[i] then break;
PlayFile(i);
PlayList_ListBox.Selected[i] := false;
end;