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;
打开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;