打开对话框opendialog

//使用:OpenDialog控件.  
  ldg.Options := ldg.Options + [ofAllowMultiSelect];
  ldg.Filter := '作答文件ZF包.zf|*.zf';//一般使用'*.zf|*.zf';
  ldg.FilterIndex := 1;
 
  if ldg.Execute then //打开成功
  begin
    FilesPath := ExtractFileDir(ldg.FileName);
    for i := 0 to ldg.files.count - 1 do //循环每一个选择的文件
      begin
        DJPaperStuList.Add(ldg.files.Strings[i]);
      end;
  end;