本文整理自网络,侵删。
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 showmainform := false 失效的解决办法
Delphi tstreamwriter tstreamreader 流操作3
更多相关阅读请进入《Delphi》频道 >>