请问:如何用数组表示选取opendialog对话框中的多个文件及路径名(10分)

  • 主题发起人 主题发起人 hnhsh
  • 开始时间 开始时间
H

hnhsh

Unregistered / Unconfirmed
GUEST, unregistred user!
请问:如何用数组表示选取opendialog对话框中的多个文件及路径名 :
打开opendialog1对话框后选取多个文件,如何用数组表示选取的这些文件名及路径文件名(如:d:/xx/yy.doc)?我这里有段代码,但执行后总是出错,请高手帮我看一下:
var
fs,i:integer;
filename,filenamepath:array of string;
begin
fs:=OpenDialog1.Files.Count;
setlength(filename,fs);
setlength(filenamepath,fs);
i:=0;
for i:=0 to fs-1 do //fs-1是否对?
filename:=extractfilename(OpenDialog1.Files.Strings);//提取不了文件名?
filenamepath:=expandfilename(OpenDialog1.Files.GetNamePath);//提取不了路径文件名?
showmessage(filename);//此代码不执行?
showmessage(filenamepath);//次代码不执行?
inc(i);
end;
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
I
回复
0
查看
1K
import
I
后退
顶部