Delphi OpenDialog1 文件过滤及多选实现
<p> </p><p><span style="font-size: 16px">Delphi OpenDialog1 文件过滤及多选实现</span></p>
<p><span style="font-size: 16px"><strong>1、文件过滤</strong></span></p>
<div class="cnblogs_Highlighter">
<pre class="brush:delphi;gutter:true;"><span style="font-size: 16px">OpenDialog1.Filter:='文本文件(*.txt)|*.txt'; //文本文件(*.txt) 显示在文件类型里，中间用|隔开，|后面代表过滤exe以外的其他类型文件
OpenDialog1.Filter:='文本文件(*.txt)|*.txt|EXECL文件(*.xls)|*.xls';
OpenDialog1.Filter:='支持文件类型(*.png;*.jpg)|*.png;*.jpg';//显示2个以上的类型，中间用;隔开
</span></pre>
</div>
<p> </p>
<p><span style="font-size: 16px"><strong>2、多选文件</strong></span></p>
<div class="cnblogs_Highlighter">
<pre class="brush:delphi;gutter:true;"><span style="font-size: 16px">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) //lists 单个文件名
end;
end;
</span></pre>
</div>
<p><span style="font-size: 16px"> </span></p>
<p><span style="font-size: 16px"><strong>3、其他</strong></span></p>
<div class="cnblogs_Highlighter">
<pre class="brush:delphi;gutter:true;"><span style="font-size: 16px">OpenDialog.InitialDir := '指定目录路径 ';//指定默认打开目录或文件？
OpenDialog1.FileName //设置默认文件
</span></pre>
</div>
<p><span style="font-size: 16px"> </span></p>
<p> </p>
<p><span style="font-size: 12px; color: rgba(136, 136, 136, 1)">创建时间：2020.05.07 更新时间：</span></p>
<p><span style="font-size: 12px; color: rgba(136, 136, 136, 1)">来源：https://www.cnblogs.com/guorongtao/p/12844369.html</span></p>
<p> </p>
</div>
<div id="MySignature" role="contentinfo">
博客园 滔Roy https://www.cnblogs.com/guorongtao 希望内容对你有所帮助，谢谢！<br><br>
来源：https://www.cnblogs.com/guorongtao/p/12844369.html
頁:
[1]