5,943
社区成员
发帖
与我相关
我的任务
分享OpenDialog问题，在线等
我在用一个OpenDialog同时打开多个文件，但返回的FileName只是其中一个的，想请教如何返回选择的所有文件名？
...全文
请发表友善的回复…
发表回复
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
返回所有文件名。
返回所有文件名。
