Question

delphi 添加一个button把listbox1里面的内容加到listbox2里面去，每点击一次加一次 不是用Assign

Answer 1

在你的 button事件写

ListBox2.Items.AddStrings(ListBox1.Items); // 这个是把ListBox1所有的内容都添加到ListBox2

你还可以吧你选中的那条添加到 ListBox2
ListBox2.Items.Add(ListBox1.Items[ListBox1.ItemIndex]);

Answer 2

搞定

procedure TForm1.Button2Click(Sender: TObject);
begin
listbox2.Items.text :=listbox2.Items.Text + listbox1.Items.Text;
end;

Answer 3

ListBox2.Items.Add(ListBox1.Items.Strings[ListBox1.ItemIndex]);
这个不知道是不是你想要的结果，希望能对你有帮助