procedure TForm1.ListBox1Click(Sender: TObject);
var
i:Integer;
begin
i :=ListBox1.ItemIndex; //获取选中行的索引。
ComboBox1.Items.Add(ListBox1.Items[i]); //添加到Combobox中。
end;
中间分隔字符串可以使用ExtractStrings，也可以使用TStringList分隔，都可以的。这里就不写代码了。
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024