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 //设置默认文件