procedure TForm1.btn1Click(Sender: TObject); var a:TStringList; i:integer; begin a:=TStringList.create; a.LoadfromFile('你文件的路径'); for i:=0 to a.count-1 do begin showmessage(a.strings[i]); end; end;
mark 我觉得应该这样： 1.分析文件中的地址 2.下载地址所指向的第一个音乐文件到本机（没用过MediaPlayer控件，不知道能不能直接播放网络地址下的音乐，本步骤的前提是指控件不能播放的情况下） 3.打开音乐文件，同时检查文本文件中有没有其它文件，如果有，同时启动下载第二个文件。 4.如果音乐文件播放完毕，检查是否有新的文件已下载完毕，如果有，播放，如果没有，等待下载完毕 5.循环步骤3,4
