opendialog打开文件的问题(0分)

C

coolc_cd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-29

• #1

用opendialog打开了多个文件,但如何将多个文件名赋值给多个变量?

 

P

pihome

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-29

• #2

for i:=0 to OpenDialog.Files.Count-1 do
ShowMessage(OpenDialog.Files);

 

2

2days

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-29

• #3

呼呼，同上

 

S

sunsong

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-29

• #4

多个文件的名字保存在Opendialog.Files中，这是一个TStringList类型的属性。
你可以建立一个字符列表来存储。
var
MyFiles : TStringList;
i : integer;
begin
try
MyFiles := TStringList.Create;
For i := 0 to Opendialog1.Files.Count -1 do
begin
MyFiles.Add(Opendialog1.Files);
end;
finally
MyFiles.Free;
end;
end;