如和用for循环读取ListBox1里的每条内容!!

Question

如和用for循环读取ListBox1里的每条内容!!

Answer 1

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

Answer 2

var
  i:integer;
begin
for i:=0 to ListBox1.Items.Count -1 do
begin
ListBox1.itemindex:=i;
memo1.Lines.Add(Listbox1.items[ListBox1.itemindex]);
end;

Answer 3

procedure TForm1.btn1Click(Sender: TObject);
var
  v_count,i:Integer;
begin
  v_count:=lst1.Count;
  for i:=0 to v_count-1 do
  begin
    ShowMessage(lst1.Items.Strings[i]);
  end;
end;