Delphi OpenDialog1 打开多个文件

本文整理自网络，侵删。

 
代码演示：






设置一个小参数：


var
  i : integer;
begin
  if OpenDialog1.Execute then
  begin
    for  i := 0 to OpenDialog1.Files.Count-1 do
    begin
    Memo1.Lines.Add(OpenDialog1.Files[i]) ;
    end;

  end;
 

相关阅读 >>

Delphi 泛型搜索字符串数组

Delphi datasnap双缓存下载文件

Delphi关于tjpegimage的使用(bmp\ jpg格式转换）

Delphi访问mysql乱码问题

Delphi adoquery查询，如何得到查询记录数？

Delphi getmimetype 查询文件mime类型函数

Delphi [fmx]如何使用剪贴板

Delphi 让程序自己更新本程序

Delphi读写文本文件

Delphi 取键盘值

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi OpenDialog1 打开多个文件