Question

delphi中，关于listbox的问题

我在listbox中用opendialog添加了几首音乐，然后点击播放的时候只能一直播放一首，请问这个音乐的路径怎么获取呢？
procedure TForm1.btn1Click(Sender: TObject);
begin
if dlgOpen1.Execute then
begin
nam:=Copy(ExtractFileName(dlgopen1.FileName),1,POS('.',ExtractFileName(dlgOpen1.FileName))-1);
lst1.items.add(nam);
end;
end;

procedure TForm1.lst1Click(Sender: TObject);
begin
cou:=lst1.ItemIndex;
if lst1.ItemIndex=cou then
begin
roa:=ExtractFilePath;
wp1.url:=roa;
end;

end;
end.

Answer 1

OK,这个问题很清晰,主要在设计上面的理解问题!
那么问题的关键就在 dlgopen1.FileName
这个 dlgopen1.FileName 其实格式是:路径/文件名.后缀
那么在设计的时候,就可以这样制作:
实例化一个 TStringList 用与保存 dlgopen1.FileName
并将所保存到 TStringList 中对应的index 用来写入到 listbox.AddItem('文件名',index);
这样,当listbox操作的时候,就可以根据操作相的OBJ来在TStringList中索引到 文件的路径了
-------------------------华丽的分割线---------------------
上面这些是设计思路,下面提供一个参考代码:
-----------定义容器
private //在窗口类的私有字段中定义
{ Private declarations }
var FileNameList:TStringList=nil; //这个定义要在单元定义,不能在局部定义
-----------在窗口创建时实例化
FileNameList := TStringList.Create;
-----------添加部分//procedure TForm1.btn1Click(Sender: TObject);
if dlgOpen1.Execute then
begin
if FileNameList.IndexOf(dlgopen1.FileName) >= 0 then begin
ShowMessage('已在列表中!');
exit;
end;Add
lst1.AddItem(ExtractFileName(dlgopen1.FileName),
TObject(FileNameList.Add(dlgopen1.FileName)));
end;
---------索引部分//procedure TForm1.lst1Click(Sender: TObject);
if lst1.ItemIndex >= 0 then
wp1.url:=FileNameList[Integer(lst1.Items.Objects[lst1.ItemIndex])];
-----------------华丽的分割线---------------
参考代码就到这里吧,你看这些手工码字不容易!
注意了,楼上的方法会增加系统的开销,并非理想办法!!!
如果我的回答帮助到你了,记得采纳答案,也点下赞同
吧! 还有什么疑问也可以继续找我!

Answer 2

ExtractFilePath

建议你放两个listbox 另一个visible设为false 隐藏 用来放 对应的完整路径

追问

谢谢你的建议，我已经弄好啦！！！哎，当时怎么就没想到呢，谢啦！！