Delphi OpenDialog1 文件過濾及多選實現

 

Delphi OpenDialog1 文件過濾及多選實現

1、文件過濾

OpenDialog1.Filter:='文本文件(*.txt)|*.txt';   //文本文件(*.txt) 顯示在文件類型里，中間用|隔開，|后面代表過濾exe以外的其他類型文件
OpenDialog1.Filter:='文本文件(*.txt)|*.txt|EXECL文件(*.xls)|*.xls';
OpenDialog1.Filter:='支持文件類型(*.png;*.jpg)|*.png;*.jpg';  //顯示2個以上的類型，中間用;隔開

 

2、多選文件

ofAllowMultiSelect := True;   //多選文件開啟   選擇options屬性，將其中的ofallowmultiselect屬性設為true 

//循環取得每個單個的文件名
var 
  Lists:TStrings; 
  i:integer; 
begin 
  if OpenDialog1.Execute then 
  begin 
    Lists:=OpenDialog1.Files ;   //獲得所有文件名 
    for i :=0 to Lists.count do 
    Listbox1.items.add(Lists[i])   //lists[i] 單個文件名 
  end;
end;

　　

3、其他

OpenDialog.InitialDir := '指定目錄路徑 ';  //指定默認打開目錄或文件？
OpenDialog1.FileName   //設置默認文件

　　

 

創建時間：2020.05.07　　更新時間：

來源：https://www.cnblogs.com/guorongtao/p/12844369.html