如何实现opendialog的多文件选择(100分)

X

xu_zhenwen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-07

• #1

我想打开多个文件的选择，并把多个文件放在一个我自己写的文件列表中去，就象winnap的
文件列表一样，我也不知道如何把它和文件列表联系起来，我的文件列表是用一个listbox
控件，请高手指教，谢谢！！！！！

 

Y

yzhshi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-07

• #2

将ofAllowMultiSelect设置为True，然后从OpenDialog1.Files.Text读取数据

 

Y

yzhshi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-07

• #3

代码如下，供参考
procedure TForm1.Button1Click(Sender: TObject);
var
i: Integer;
begin

if OpenDialog1.Execute then

begin

ListBox1.Clear;
for i := 0 to OpenDialog1.Files.Count - 1do

ListBox1.Items.Add(OpenDialog1.Files);
end;


end;

 

Z

zxb200

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-07

• #4

opendialog1的options修改同上：
if opendialog1.Execute then

listbox1.Items.Assign(opendialog1.Files);

 

G

gxcooo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-07

• #5

oPendialog.option.ofAllowMultiSelect:=true;
所有的文件名都在OpenDialog.Files.Text里,以#13分割

 

H

hbezwwl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-07

• #6

设置option->OnAllowMutiSelect为真即可多选。

 

A

Alix88

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-07

• #7

同意设置
option->OnAllowMutiSelect为真即可多选。
我试过了!@

 

C

cranky

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-24

• #8

to gxcooo
请问"所有的文件名都在OpenDialog.Files.Text里,以#13分割"
是什么意思？

 

L

laohe

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-24

• #9

这个问题我以前问过；

先在Options中将ofAllowMultiSelect设置为True;
然后用OpenDialog1.Files读取数据；

例如：

procedure TForm1.Button1Click(Sender: TObject);
begin

if OpenDialog1.Execute then

listbox1.Items:=OpenDialog1.Files;
end;


分分数的时候，多分点，没钱买米了