简单问题?

Question

点击listbox选中一行, 把该行内容赋给edit1.text的语句是什么?

Answer 1

procedure TForm1.ListBox1Click(Sender: TObject);
var n:integer;
begin
    n:=listbox1.ItemIndex;
    edit1.Text:=listbox1.Items[n];
end;

Answer 2

edit1.text:=listbox1.items[listbox1.itemindex]

Answer 3

procedure TForm1.ListBox1Click(Sender: TObject);
var
n:integer;
begin
n:=listbox1.ItemIndex;edit1.Text :=listbox1.Items.Strings[n];
end;