请高手指教;listbox中如何得到我选择的items在listbox中的行数(100分)

J

jp=me

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-08-19

• #1

请高手指教;listbox中如何得到我选择的items在listbox中的行数

 

C

cemi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-08-20

• #2

var
i:integer;
beign
for i:=0 to listbox1.items.count-1 do
begin
if listbox1.items.selectcted then
begin
selectindex:=i;
break;
end;
end;

 

J

jp=me

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-08-20

• #3

感谢cemi
我经测试，中间几行小有错误，可以通过的应是：
var
i:integer;
begin
for i:=0 to listbox1.Items.Count-1 do

begin
if listbox1.Selected then
begin
listbox1.ItemIndex:=i;
edit1.Text:=inttostr(i);{将行数显示在edit1中}

break;
end;
end;
end;
end.
但仍给您满分。