“列表索引越界”在 TListBox 上

Question

我在表单上有一个 TListBox，并且使用 grp 添加项目

listbox1.ItemIndex := listbox1.Items.AddObject('msg', TObject(grp));

是一个整数。列表框设置为 lbOwnerDrawFixed。

在 onDrawItem 事件中，我在标记行上引发了异常 EStringListError：

msg := (control as Tlistbox).Items.Strings[index];           // this line works
grp := integer((control as Tlistbox).Items.Objects[index]);  // exception here

msg 和 grp 是本地字符串，整数变量。

项目 ### 引发异常类 EStringListError 并显示消息“列表索引超出范围 (1)”

Answer 1

愚蠢的错误：我使用 grp := -1 作为默认组，AddObject 或 Objects[index] 一定不喜欢它。

Answer 2

您只想存储一个整数，因此您应该将代码更改为

listbox1.ItemIndex := listbox1.Items.Add(IntToStr(grp));
[...]
grp := StrToInt((control as TListBox).Items[index]);

“无需在此处存储对象”，这使得整个事情变得更容易且更具可读性。

现在出现的异常是因为您无法使用索引检索对象，而必须使用与它们关联的字符串（AddObject 的第一个参数）。正确的方法是这样的：

msg := (control as Tlistbox).Items.Strings[index];
grp := integer((control as Tlistbox).Items.Objects[(control as Tlistbox).Items.IndexOf(msg)]);

另请参阅此 关于 AddObject< 的教程/代码>。