list index out of bond() ?不懂为什么会出这个错(45分)

L

lifeforever

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-06

• #1

procedure TfrmDebug.btnClearClick(Sender: TObject);
var
i: Integer;
begin
for i := 0 to cbldeb.Items.Count-1 do
cbldeb.Selected := false;
end;

提示是 list index out of bond(0)
不明白为什么！

cbl 是一个checkboxlist控件

 

X

xygz

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-06

• #2

selected有这么多吗？

疑应为：
cbldeb.items.selected:=false
将所有的选项置为未选。

是不是？

 

L

lifeforever

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-06

• #3

正是此意

 

R

riverfeng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-06

• #4

CheckListBox.Selected[index] 属性是指明该项是否被选中
不可以自己赋值的，所以出现上述情况。

 

L

lifeforever

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-06

• #5

checklistbox1.items 好象没有Selected这种属性

 

L

lifeforever

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-06

• #6

那我想将checkboxlist中的item置成未选，该怎么做？

 

教

教父

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-06

• #7

如果想将所有的选项置为未选，应该用cbldeb.Checked:=False;
Selected是指你选择的项，比如你的列表中有10项，你选了其中的5项，那么当你循环到5以后
就会越界了。

 

L

lifeforever

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-06

• #8

哦，对，有了Select就把Checked 给忘了，sigh

 

D

danliyou

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-08

• #9

教父还是挺厉害的嘛。

 

P

PFans

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-08

• #10

var
i: Integer;
begin
for i := 0 to CheckListBox1.Items.Count-1 do
CheckListBox1.Checked := false;
end;

对于选定项目，ListBox用Selected属性，CheckListBox用Checked属性，ComboBox直接
使用Text属性