如何取得ListBox中的内容

[sunnyasp]

小弟想将ListBox中的内容一条一条的取出,但只能取到第一条的内容,还请指教!!!

[jackie168]

procedure TForm1.ListBox1DblClick(Sender: TObject);
begin
edit1.Text:=ListBox1.Items[ListBox1.itemindex];
end;

[sunnyasp]

这样只能取到第一条的内容啊,是不是ListBox1.Itemindex可以递增啊?

[careerist]

for i := 0 to ListBox1.count -1 do
edit1.Text:=ListBox1.Items[i];

[lty]

edit1.Text:=ListBox1.Items[i];

[u2m]

for i := 0 to ListBox1.count -1 do
showmessage(ListBox1.Items[i]);

[_i_]

Tlistbox.Items就是所有内容 TStrings