opendialog 的多项选择

Question

我要使用OPENDIALOG，需要一　次能选择多个文件，怎么设置

Answer 1

首先要OpenDialog1-->Options-->ofAllowSelect设置为True
Opendialog1.Files 是字符数组，即所有选中的文件名（包括详细路径）var
  i: Integer;
begin
   if OpenDialog1.Execute then
   begin
      for i:= 0 to OpenDialog1.Files.Count -1 do
         Memo1.Lines:= OpenDialog1.Files;
   end;
end;

Answer 2

OpenDialog支持多选，你所选择的文件名在Files属性中返回

Answer 3

OpenDialog1.Options := OpenDialog1.Options + [ofAllowMultiSelect];

Answer 4

我觉得顶层的这两行代码好象有问题吧
      for i:= 0 to OpenDialog1.Files.Count -1 do
         Memo1.Lines:= OpenDialog1.Files;
循环着把一个strings赋给另外一个strings有什么意义吗？要不就写成按string给
      for i:= 0 to OpenDialog1.Files.Count -1 do
        memo1.Lines[i] := OpenDialog1.Files[i];
否则就直接按strings给，一句即可
         Memo1.Lines:= OpenDialog1.Files;

Answer 5

对， killlaoli(菜鸟) 
刚开始是打算逐行赋值
后来直接字符数组赋过去
前面那个忘了循环叉掉   呵呵  ：）

Answer 6

OpenDialog1.Options.allowMultiSelect:=True;
If OpenDialog1.Execute Then
Begin
    Memo1.Clear;
    Memo1.Lines:=OpenDialog1.Files;
End;