Question

delphi中怎样循环播放列表中的音乐

在timer组件中写上这代码怎么没用

if pb1.Position>=pb1.Max
then
begin
if fllst1.ItemIndex<fllst1.ItemIndex+1
then
begin
fllst1.ItemIndex:=fllst1.ItemIndex+1;
mp1.FileName:=fllst1.Items[fllst1.Itemindex];
mp1.Open;
mp1.Play;
end
end
else Exit;

Answer 1

设断点调试一下，看看有没有运行到
mp1.FileName:=fllst1.Items[fllst1.Itemindex];
mp1.Open;
mp1.Play;

另外看看文件名取得对不对。

有一个问题if fllst1.ItemIndex<fllst1.ItemIndex+1 这句似乎永远都成立

Answer 2

if pb1.Position>=pb1.Max
then
begin
if fllst1.ItemIndex<fllst1.count-1
then
begin
fllst1.ItemIndex:=fllst1.ItemIndex+1;
mp1.FileName:=fllst1.Items[fllst1.Itemindex];
mp1.Open;
mp1.Play;

end
else
begin
fllst1.ItemIndex:=0;
end;
end;