Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Для новичков > Перенос из одного listbox'a в другой

Автор: dize 4.8.2009, 10:41

Необходимо из первого листбокса выделенные элементы перенести в другой, на этой же форме, а затем присвоить выделенным элементам значение Edit.

Автор: Christoph 4.8.2009, 11:51

Код


var
  i:Integer;
  StrList:TStringList;
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);
 end;
end;

Этот код копирует элементы, из одного бокса в другой, а присвоить выделеным элементам строку из Едита, допиши сам, я просто не знаю, в 1 боксе надо это сделать или во втором.

Автор: dize 10.8.2009, 10:44

Во втором. Кстати, этот код почему-то добавляет всего 1 строку которую выбираешь, если выбрать другую, нежели первоначальную, заменяет.