TListBox怎么表示其中一项的值呢？？怎么用循环输出其所有的值呢？

Question

TListBox怎么表示其中一项的值呢？？
怎么用循环输出其所有的值呢？

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var s:string;
    i:integer;
begin
//输出某项：
    s:=listbox1.Items[3];
    showmessage(s);
    s:='';
    for i := 0 to listbox1.Count - 1 do
    begin
        s:= s + listbox1.Items[i];
    end;
    showmessage(s);
end;

Answer 2

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

Answer 3

表示一项:showmessage(listbox1.Items.Strings[listbox1.ItemIndex]);
全部输出:
for i:=0 to listbox1.Items.Count-1 do
 showmessage(listbox1.Items.Strings[i]);

Answer 4

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

Answer 5

procedure TForm1.Button1Click(Sender: TObject);
var s:string;
    i:integer;
begin
//输出某项：
    s:=listbox1.Items[3];
    showmessage(s);
    s:='';
    for i := 0 to listbox1.Count - 1 do
    begin
        s:= s + listbox1.Items[i];
    end;
    showmessage(s);
end;