Código Delphi [-] procedure TForm1.Button1Click(Sender: TObject); var i: integer; begin for i := 0 to ListBox1.Count-1 do ShowMessage(ListBox1.Items[i]); end;
procedure TForm1.Button1Click(Sender: TObject); var i: integer; begin for i := 0 to ListBox1.Count-1 do ShowMessage(ListBox1.Items[i]); end;