listbox问题

Question

1：怎么知道鼠标单击listbox中的每一条items，比如说有item1和item2两个，点击第一个showmessage（‘1111111’）；点击第二个showmessage（‘2222222’）；
2：如何获得listbox中有多少条数据？

Answer 1

1.
  procedure TForm1.ListBox1Click(Sender: TObject);
  begin
    case listbox1.itemindex of
      0:showmessage('000000');
      1:showmessage('llllll');
      2:showmessage('222222');
    end;
  end;2.
  listbox1.Items.Count

Answer 2

ListBox1.Items.Count   字符串数在TListBox 的 OnClick 过程中 加入(Sender as  TListBox).ItemIndex ;// 选取的字符串号数，从0开始的，单选时是这样(Sender as  TListBox).Selected[0] //返回boolean值，第0个字符串是否被选