ListBox1列表框的问题

Question

listbox1.Items.Strings[listbox1.ItemIndex];

Answer 1

for i:= 0 to ListBox1.Items.count - 1 do 
  if ListBox1.Items[i].selected then edit1.text := ListBox1.Items[i];

Answer 2

procedure TForm1.ListBox1Click(Sender: TObject);
begin
  try
    Edit1.Text := ListBox1.Items.Strings[ListBox1.ItemIndex];
  except
  end;
end;

Answer 3

s:=ListBox1.Items[ListBox1.ItemIndex];

Answer 4

procedure TForm1.ListBox1Click(Sender: TObject);
begin
    Edit1.Text := ListBox1.Items.Strings[ListBox1.ItemIndex];
 end;上面那位,应该可以不用try函数吧?!

Answer 5

最好改成下面的代码：
  If ListBox1.ItemIndex<>-1 Then
    Edit1.Text:=ListBox1.Items.Strings[ListBox1.ItemIndex];