Delphi OpenDialog1 文件过滤及多选实现

 

Delphi OpenDialog1 文件过滤及多选实现

1、文件过滤

?

1 2 3

OpenDialog1.Filter:='文本文件(*.txt)|*.txt';   //文本文件(*.txt) 显示在文件类型里，中间用|隔开，|后面代表过滤exe以外的其他类型文件 OpenDialog1.Filter:='文本文件(*.txt)|*.txt|EXECL文件(*.xls)|*.xls'; OpenDialog1.Filter:='支持文件类型(*.png;*.jpg)|*.png;*.jpg';  //显示2个以上的类型，中间用;隔开

 

2、多选文件

?

1 2 3 4 5 6 7 8 9 10 11 12 13 14

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、其他

?

1 2	OpenDialog.InitialDir := '指定目录路径 ';  //指定默认打开目录或文件？ OpenDialog1.FileName   //设置默认文件

　　

 

创建时间：2020.05.07　　更新时间：

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