关于FileListBox1的问题(50分)

  • 主题发起人 主题发起人 caoliu
  • 开始时间 开始时间
C

caoliu

Unregistered / Unconfirmed
GUEST, unregistred user!
FileListBox1显示10文件.
怎样读写在FileListBox1里选定的1个或几个文件.
 
Items和Selected属性.
帮助中说得很清楚了.
 
将MultiSelected属性设为True.
 
for i:=0 to (FileListBox1.Items.Count-1) do
begin
if FileListBox1.Selected=true then
assignfile(txt2,path1+FilelistBox1.Items.strings)
else
assignfile(txt2,path1+FilelistBox1.Items);
reset(txt2);
while not eof(txt2) do
begin
.....
end;
end;

是不是这样,可是不行,跳过了assignfile(txt2,path1+FilelistBox1.Items.strings),
执行else中的assignfile(txt2,path1+FilelistBox1.Items);
也就是说FilelistBox1显示的文件都读写了.
 
sorry 我弄错了逻辑关系,现在可以了.
if FileListBox1.Selected=false then
begin
assignfile(txt2,path1+FilelistBox1.Items.Strings);
reset(txt2);
while not eof(txt2) do
begin
...
end;
end
else
for i:=0 to (FileListBox1.Items.Count-1) do
begin
assignfile(txt2,path1+FilelistBox1.Items);
reset(txt2);
while not eof(txt2) do
begin
...
end;
end;
但有个疑问:FileListBox1.Selected=false ;
我改为FileListBox1.Selected=true ;它就执行else中的代码;
我改为FileListBox1.Selected=false ;就执行在FileListBox1里选定的1个或几个文件
难到是反的.
 
可以执行在FileListBox1里选定的1个或几个文件;
但不能执行在FileListBox1显示所有的文本文件;
 
多人接受答案了。
 
后退
顶部