В случае если использовать этот вариант, то при последовательном выборе значений из listbox1 и добавлении их в listbox2 идет замена, а не добавление..
| Код |
var
StrList:TStringList;
i:integer;
begin
StrList:=TStringList.Create;
try
for i:=0 to ListBox1.Items.Count - 1 do
if ListBox1.Selected[i] then StrList.Add(ListBox1.Items[i]);
ListBox2.Items.Assign(StrList);
finally
FreeAndNil(StrList);
listbox1.DeleteSelected;
end
|
Как изменить этот кусок кода, чтобы элементы не заменялись, а именно добавлялись к списку listbox2, таким образом обеспечивая в сумме одинаковое количество элементов в двух листбоксах? |
