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中使用xmlhttp / xmlhttprequest 避免缓存

Delphi之伪造referer下载文件

Delphi中unicode转中文

Delphi判断电脑是否安装了excel

Delphi整理八（对话框）

Delphi中break,exit,abort跳出循环的比较

Delphi windows 根据进程名结束进程的代码

Delphi idsmtp控件发送邮件

Delphi xe6 取得app自己的版本号(横跨4个平台)

Delphi一句话获取本机ip

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

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