这怎么解决呀？帮忙?

Question

MediaPlayer1.FileName:='g:\mp3\xx.mp3'  //这是对的
但是
var
 s:string;
begin
s:='g;\mp3\xx.mp3';
MediaPlayer1.FileName=s;   //这就错了 这怎么解决 因为播放的文件名是改动的
end;

Answer 1

s:='g;\mp3\xx.mp3';
改为
s:='g:\mp3\xx.mp3';

Answer 2

MediaPlayer1 是个ACTIVTEX控件吗? FILENAME不是STRING型的吧,应该是PCHAR

Answer 3

代码如下：
var
 i:byte;
 s:string;
begin
  if ComboBox1.Items.Count =0 then
   ShowMessage('请选择有效的音乐');
   for i:=0 to ComboBox1.Items.Count do
     begin
     s:=ComboBox1.Items[i];
        //s:='g:\mp3\new\cc.mp3';
     MediaPlayer1.FileName:=s;      //'g:\mp3\new\cc.mp3';
      ShowMessage(s);
       MediaPlayer1.Open;
       MediaPlayer1.Play;  // 错误 ‘无法给定的设备名确定类型’
      end;
end;怎么解决呀？

Answer 4

procedure TForm1.Button1Click(Sender: TObject);
var
fname :string;
i:integer;
begin
  for i:=1 to 10 do
  begin
  fname:='G:\无赖.mp3';
  mp1.FileName :=fname;
  mp1.Open ;
  mp1.Play ;
  end
end;end.
'====
以上语句D7运行通地过，MP1为mediaplayer控件