S
str
Unregistered / Unconfirmed
GUEST, unregistred user!
for i:= 0 to (FileListBox1.Items.Count-1)do
begin
begin
MediaPlayer1.Filename := FileListBox1.Items.Strings;
MediaPlayer1.Open;
MediaPlayer1.DisplayRect := Rect(0, 0, Panel4.Width, Panel4.Height);
MediaPlayer1.play;
end;
为何总是播放最后一个文件呢？而不是一个一个连续播放呢？
begin
begin
MediaPlayer1.Filename := FileListBox1.Items.Strings;
MediaPlayer1.Open;
MediaPlayer1.DisplayRect := Rect(0, 0, Panel4.Width, Panel4.Height);
MediaPlayer1.play;
end;
为何总是播放最后一个文件呢？而不是一个一个连续播放呢？