傻傻的问 OpenDialog可以多选吗？请高手作答

Question

我想用OpenDialog选选中多个文件，然后对其操作！请高手作答

Answer 1

This example uses an Open dialog box, a memo, and a button on a form. When the user clicks the button, the Open dialog box appears. When the user selects files in the dialog box and chooses the OK button, the first line from each of the files is added to the memo.procedure TForm1.Button1Click(Sender: TObject);var
  I: integer;
  F: TextFile;
  FirstLine: string;
begin
  OpenDialog1.Options := [ofAllowMultiSelect, ofFileMustExist];
  OpenDialog1.Filter := 'Text files (*.txt)|*.txt|All files (*.*)|*.*';
  OpenDialog1.FilterIndex := 2; { start the dialog showing all files } 
  if OpenDialog1.Execute then
    with OpenDialog1.Files do
      for I := 0 to Count - 1 do
      begin
        AssignFile(F, Strings[I]);  { next file in Files property }        Reset(F);
        Readln(F, FirstLine);  { Read the first line out of the file }
        Memo1.Lines.Append(FirstLine);  { Add the line to the memo }
        CloseFile(F);
      end;
end;

Answer 2

可以！
OPTIONS--》ofAllowMultiSelect=trueif OpenDlg1.Execute then
 begin
  For I := 0 to OpenDlg1.Files.Count - 1 do
    ListBox1.Items.Add(OpenDlg1.files[I]);
  end;

Answer 3

 只要OPTIONS->ofAllowMultiSelect=true;即可

Answer 4

OPTIONS->ofAllowMultiSelect=true;
当然可以啊opendialog1.Files 
的属性用来保存多选的文件名

Answer 5

ofAllowMultiSelect=true;For I := 0 to OpenDlg1.Files.Count - 1 do
    ListBox1.Items.Add(OpenDlg1.files[I]);