请教：listbox问题，请高手指点

Question

各位高手：
本人想要如下功能，该如何操作？？
鼠标单击listbox中的一项，提取这项的内容给一个变量或一个edit
该如何操作，请指点。
解决问题一定给分！

Answer 1

listbox1.OnClick
begin
   edit1.Text:=listbox1.items[listbox1.itemindex];
end;

Answer 2

在listbox的onclick事件中写
edit1.Text:=listbox1.Items.Strings[listbox1.itemindex];
就行了

Answer 3

有错误产生：list index out of bounds[-1]
为什么，该如何解决呢？？

Answer 4

if listbox1.Items.Count>0 then
edit1.Text:=listbox1.Items.Strings[listbox1.itemindex];

Answer 5

//负值给变量：
var s: String;
begin
   if listbox1.Items.Count>0 then
     S:=listbox1.items[listbox1.itemindex];
end;//负值给Edit：
begin
   if listbox1.Items.Count>0 then
     Edit1.text=listbox1.items[listbox1.itemindex];
end;

Answer 6

我的listbox中的items来自一个表中的三个字段的值，我想应该同这个没有关系吧，因为我做单击操作的时候，listbox中的值已经是它自己的了，真的不明白了。

Answer 7

错误提示：list index out of bounds[-1]

Answer 8

倒
你看清楚下面的写法吧！！if listbox1.Items.Count>0 then
edit1.Text:=listbox1.Items.Strings[listbox1.itemindex];

Answer 9

我把楼上大侠的代码中的listbox1.itemindex换成数字，却能正常反映结果，在单独书写“listbox1.”时delphi会自动出现itemindex这个属性，可是如果写
i（integer）：＝listbox1.时，delphi只能出现items这个属性了，看来还是有问题，请高手指教

Answer 10

itemindex 是-1吧
没有选中item

Answer 11

对，就是没有选中item，我把listbox1.itemindex换成0、1、2……就能正确反映结果了，这怎么办呢？？