打開對話框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;