delphi中怎样循环播放列表中的音乐
来源:百度知道 编辑:UC知道 时间:2024/08/23 17:35:42
在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;
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;
设断点调试一下,看看有没有运行到
mp1.FileName:=fllst1.Items[fllst1.Itemindex];
mp1.Open;
mp1.Play;
另外看看文件名取得对不对。
有一个问题if fllst1.ItemIndex<fllst1.ItemIndex+1 这句似乎永远都成立
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;