请问如何对Listview的多选项编程?(50分)

N

nuke

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-04-22

• #1

当mutliselected设为true时,如何得到选得各项???
请给出具体一点的例程!

(讨厌参见***帮助的回答)

 

Y

ygyu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-04-22

• #2

要得到各选项可用下面源码:
For i:=0 To ListBox1.Items.Count-1do
If ListBox1.Selected then
begin
//处理过程
end;
该给分吧!

 

J

jghuang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-04-22

• #3

var
F: File;
i: integer;
begin
for i := 0 to (FileListBox1.Items.Count - 1)do

begin
try
if FileListBox1.Selected then

begin
if not FileExists(FileListBox1.Items.Strings) then

begin
MessageDlg('File: ' + FileListBox1.Items.Strings +
' not found', mtError, [mbOk], 0);
Continue;
end;
AssignFile(F, FileListBox1.Items.Strings);
Reset(F, 1);
ListBox1.Items.Add(IntToStr(FileSize(F)));
CloseFile(F);
end;
finally
{do
something here }
end;
end;
end;
这就是帮助中的例子,不用讨厌.

 

S

SeaSky

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-04-22

• #4

楼上的你搞错了, 人家要的是 Listview, 不是Listbox!
with Listview1.itemsdo
begin

for I:=0 to count-1do

if Item.selected then
begin

//处理过程
Edit1.text := Edit1.text + '"' + item.caption + '" ';
end;
end ;

 

S

SeaSky

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-04-22

• #5

不是 FileListBox !

 

N

nuke

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-04-26

• #6

多人接受答案了。