Question

delphi listbox问题

我想将listbox里的一条记录移到最上层，用ListBox2.Selected[]:=True来设定被选中的项，可是老是报错，list index out of bounds（）不知道为什么！
比如说我有5条数据，我现在选择了itemindex=4也就是第五条数据，让后我用
listbox.items.move(itemindex,itemindex-1)这样这条数据就上移了一位，执行完这一步listbox里就没有选中项了，我想继续选中这条上移的项，就用ListBox.Selected[itemindex-1]:=True这让设置咯
可是执行到这里就报错咯!！

Answer 1

用listbox.itemindex := listbox.items.count-i;
默认选中最后一条数据。
移动一次,i自动增加或减小。

Answer 2

ListBox2.Selected[关键：这里是多少？]
是从0开始的。