进来者就是风流倜傥,英俊潇洒,才高八斗,貌似藩安,号称一朵梨花压海棠,送绰号上天下

Question

玉面飞龙唐伯虎家的那只狗:=[旺财...]
帮忙解决一下问题..多曲循环在filelistbox中我这样做不行,帮忙看一下,给出正确代码:
procedure TForm1.FileListBox1DblClick(Sender: TObject);
var
dir:string;
begin
dir:=filelistbox1.FileName ;
mediaplayer1.Close ;
mediaplayer1.FileName :=dir;
mediaplayer1.Open ;
mediaplayer1.Play ;end;procedure TForm1.MediaPlayer1Notify(Sender: TObject);
var
i:integer;
begin
if mediaplayer1.Mode =mpstopped then
  begin
    for i:=0 to filelistbox1.Count -1 do
    mediaplayer1.FileName :=filelistbox1.Items[i];
    mediaplayer1.Play;
  end;
  mediaplayer1.Notify :=true;end;

Answer 1

没搞明白， 你这是想做啥？
问题要描述清楚，你的目的是什么？for i:=0 to filelistbox1.Count -1 do
    mediaplayer1.FileName :=filelistbox1.Items[i];
    mediaplayer1.Play;

Answer 2

楼主是要做播放列表，然后循环播放吗？这个简单，用Timer控件就可以实现。具体代码如果有兴趣，可以发信息给我，我发到你邮箱！

Answer 3

小熊哥：
   给我也发一个。谢您啦！  Email:  [email protected]

Answer 4

在一首一首放，完了再下一首！
你不能给个dir给它。。

Answer 5

delphi我是七窍通了六窍。
帮你顶。

Answer 6

    for i:=0 to filelistbox1.Count -1 do
begin
    mediaplayer1.FileName :=filelistbox1.Items[i];
    mediaplayer1.Play;
end;
  这个代码好想总播放最后一个音乐吧？

Answer 7

应该判断一下当前歌曲是否播放结束，结束了再播放下一个，好象是mediaplayer有个一position的属性，得到当前播放位置，判断这个值是否等于它的长度，等于则跳到下一个。