如何做一个播放列表，请各位提示

Question

可以声明一个tstringlist类型变量存放文件列表

Answer 1

文件的多选
procedure TForm1.Button1Click(Sender: TObject);
var
  i:integer;
begin
  opendialog1.Options:=[ofAllowMultiSelect]+opendialog1.Options;
  if opendialog1.Execute then
  begin
    for i:= 0 to  opendialog1.Files.Count-1 do
      listbox1.Items.Add(opendialog1.Files.Strings[i]);
  end;end;

Answer 2

随机播放
function Tform1.getfileindex:string;
var
 iCount,i:integer;
begin
  result :=-1;//查找文件失败
   Randomize;
   iCount := listbox1.Items.Count;
   if iCount >0 then
   begin
     i:= Random(icount);
     if i=icount then dec(i);
     result := i;
   end;end;
播放 listbox1.items.strings[getfileindex]即可
eng;

Answer 3

啊,随机?用Random()就可以了.简单的问题,自己作很简单的.

Answer 4

再问一下，按住shift 或ctrl键来实现多选，在delphi中要如何实现？