本文整理自网络,侵删。
opendialog1.Options:=opendialog1.Options+[ofAllowMultiSelect]; //打开文件多选模式if OpenDialog1.Execute() thenbeginMemo_Attachment.Lines.AddStrings(opendialog1.Files);//添加多个文件//Memo_Attachment.Lines.Add(OpenDialog1.FileName); //添加单个文件
Label10.Caption:='附件数:'+inttostr(opendialog1.Files.Count)+'个';end;
相关阅读 >>
Delphi分别连接ms sqlserver、oracle和access数据库的连接字符串
Delphi2010 关于record类型rtti反射的用途和方法
Delphi xe5 程序中标识win max android ios程序代码分别实现
Delphi2010新功能:tdirectory.getfiles 支持通配符
更多相关阅读请进入《Delphi》频道 >>