进来者就是风流倜傥,英俊潇洒,才高八斗,貌似藩安,号称一朵梨花压海棠,送绰号上天下

Question

玉面飞龙唐伯虎家的那只狗:=[旺财...]
帮忙解决一下问题..多曲循环在filelistbox中我这样做不行,帮忙看一下,给出正确代码:
procedure TForm1.FileListBox1DblClick(Sender: TObject);
var
dir:string;
begin
dir:=filelistbox1.FileName ;
mediaplayer1.Close ;
mediaplayer1.FileName :=dir;
mediaplayer1.Open ;
mediaplayer1.Play ;end;procedure TForm1.MediaPlayer1Notify(Sender: TObject);
var
i:integer;
begin
if mediaplayer1.Mode =mpstopped then
  begin
    for i:=0 to filelistbox1.Count -1 do
    mediaplayer1.FileName :=filelistbox1.Items[i];
    mediaplayer1.Play;
  end;
  mediaplayer1.Notify :=true;end;

Answer 1

    for i:=0 to filelistbox1.Count -1 do
    mediaplayer1.FileName :=filelistbox1.Items[i];
    mediaplayer1.Play;
->
    for i:=0 to filelistbox1.Count -1 do
    begin
      mediaplayer1.FileName :=filelistbox1.Items[i];
      mediaplayer1.Play;
    end;

Answer 2

应该这样：
procedure TForm1.FileListBox1DblClick(Sender: TObject);
var
dir:string;
begin
dir:=filelistbox1.direcotory+filelistbox1.FileName ;
mediaplayer1.Close ;
mediaplayer1.FileName :=dir;
mediaplayer1.Open ;
mediaplayer1.Play ;end;procedure TForm1.MediaPlayer1Notify(Sender: TObject);
var
i:integer;
begin
if mediaplayer1.Mode =mpstopped then
  begin
    for i:=0 to filelistbox1.Count -1 do
    mediaplayer1.FileName :=filelistbox1.Items[i]+filelistbox1.direcotory+filelistbox1.FileName ;
    mediaplayer1.Play;
  end;
  mediaplayer1.Notify :=true;end;

Answer 3

    for i:=0 to filelistbox1.Count -1 do
    mediaplayer1.FileName :=filelistbox1.Items[i];
    mediaplayer1.Play;
->
    for i:=0 to filelistbox1.Count -1 do
    begin
      mediaplayer1.FileName :=filelistbox1.Items[i];
      mediaplayer1.Play;
    end;