[Vit]

Прошу совета!
Нужно перенести выделенные записи из одного ListBox-а в другой.

[Gad99]

Код:

1	ListBox1.Items.add(ListBox2.Items[ListBox2.ItemIndex])

Вроде так.

[lmikle]

Сообщение от Vit

Прошу совета!
Нужно перенести выделенные записи из одного ListBox-а в другой.

Копирование/перенос выделенных итемов из ListBox1 в ListBox2:

Для варианта с Multiselect = False

Копирование

Код:

1	ListBox2.Items.add(ListBox1.Items[ListBox1.ItemIndex]);

Перенос

Код:

1 2	ListBox2.Items.add(ListBox1.Items[ListBox1.ItemIndex]); ListBox1.Items.Delete(ListBox2.ItemIndex);

Для варианта с Multiselect = True

Копирование

Код:

1 2 3 4 5 6 7

var   I : Integer; begin   For I := 0 To ListBox1.Items.Count-1 Do     If ListBox1.Selected[i] Then        ListBox2.Items.add(ListBox1.Items[i]); end;

Перенос

Код:

1 2 3 4 5 6 7 8 9 10

var   I : Integer; begin   For I := ListBox1.Items.Count-1 DownTo 0 Do     If ListBox1.Selected[i] Then       Begin          ListBox2.Items.add(ListBox1.Items[i]);          ListBox1.Items.Delete(I);       End; end;