怎么把listbox的字段提出来?

Question

我想把listbox的item值提出来 并放在edit.text里?
listbox.selected.text?怎么不能像treeview一样? 

Answer 1

procedure TForm1.ListBox1Click(Sender: TObject);
var
  i:integer;
begin
  for i:=0 to (Sender as TListBox ).Count-1 do
  begin
    if   ListBox1.Selected[i] then
      Edit1.Text:=(Sender as TListBox ).Items[i];
  end;end;

Answer 2

Edit1.Text:=ListBox1.Items[ListBox1.ItemIndex];

Answer 3

换个更简单的
procedure TForm1.ListBox1Click(Sender: TObject);      Edit1.Text:=(Sender as TListBox ).Items[(Sender as TListBox ).itemindex];
  或者Edit1.Text:=ListBox1.Items[ListBox1.itemindex]
end;

Answer 4

Edit1.Text:=ListBox1.Items[i]//第i行的值
edit1.text:=listbox1.items.text//listbox中的所有内容