delphi OpenDialog文件多选

本文整理自网络，侵删。

 
procedure TForm1.OpenFileListClick(Sender: TObject);
var
  openDialog: TOpenDialog;
  I: Integer;
begin
  openDialog := TOpenDialog.Create(Self);
  openDialog.Filter := 'Excel文件|*.xlsx;*.xls';
  openDialog.DefaultExt := 'xlsx';
  openDialog.Options := [ofAllowMultiSelect];
  try
    if openDialog.Execute then
    begin
      ListBox1.Clear;
      ListBox1.Items.Add('一共打开：' + VarToStr(openDialog.Files.Count) + '个文件;');
      ListBox1.Items.BeginUpdate;
      for I := 0 to openDialog.Files.Count - 1 do
        ListBox1.Items.Add(openDialog.Files[I]);
      ListBox1.Items.EndUpdate;
    end;
  finally
    openDialog.Free;
  end;
end;
 

相关阅读 >>

Delphi xe10.2 firedac 三种连接

Delphi xe5 Delphi 解析 json

Delphi 调用cmd获取java 版本号

Delphi xe5 android在桌面添加快捷方式

Delphi xe5 unicodestring的由来

Delphi 比较两数字大小取最大值

Delphi xe andriod 文件后缀对应mime类型

Delphi 木马配置器通用写法(末尾追加数据的方法)

Delphi在case语句中使用字符串

Delphi fmx listbox长按复制（移动平台）

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi OpenDialog文件多选