OpenDialog问题,在线等 我在用一个OpenDialog同时打开多个文件,但返回的FileName只是其中一个的,想请教如何返回选择的所有文件名? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 OpenDialog1.Files返回所有文件名。 OpenDialog1.Files返回所有文件名。 这个是例子:procedure TForm1.Button1Click(Sender: TObject);var i, Count: Integer;begin if OpenDialog1.Execute then begin Count := OpenDialog1.Files.Count; for i := 0 to Count - 1 do Memo1.Lines.Add(OpenDialog1.Files.Strings[i]); end;end; 动态调用函数一个 子界类型有点不明白? 请教关于如何判断ComboBox的当前内容为空? 一个简单的函数的问题! 定义过程时出现如内问题,请前辈指点 编辑打印化学分子式 请教将文件删除到回收站的方法 一个软件封面的制作,停留3秒后显示第二个窗口,为什么不显示form2 菜鸟求助:怎么弹出打印对话框 请教--关于斑马打印机的操作(//007pro) ★★如何在程序开始运行时不显示主窗体而直接显示其他窗体(如:About窗体)? 如何让SocketConnection具SOCKET5代 理功能?
返回所有文件名。
返回所有文件名。
var
i, Count: Integer;
begin
if OpenDialog1.Execute then
begin
Count := OpenDialog1.Files.Count;
for i := 0 to Count - 1 do
Memo1.Lines.Add(OpenDialog1.Files.Strings[i]);
end;
end;