4871
社区成员
- 全部
- 语言基础/算法/系统设计
- 数据库相关
- 图形处理/多媒体
- 网络通信/分布式开发
- VCL组件开发及应用
- Windows SDK/API
- 问答
OpenDialog问题，在线等
我在用一个OpenDialog同时打开多个文件，但返回的FileName只是其中一个的，想请教如何返回选择的所有文件名？
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
crackatom 2003-07-30
Thanks!:)
jacky_shen 2003-07-30
这个是例子:
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;
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;
jacky_shen 2003-07-30
OpenDialog1.Files
返回所有文件名。
返回所有文件名。
crackatom 2003-07-30
自己顶~~~
jacky_shen 2003-07-30
OpenDialog1.Files
返回所有文件名。
返回所有文件名。
