Как узнать все выделенные элементы в ListBox

[koder]

Если использовать св-во ListBox'a MultiSelect := true, то как узнать какие элементы списка выделенны?

[Profi]

for i:=0 to ListBox1.Items.Count-1 do
 If ListBox1.Selected[i] then
  ListBox2.Items.Add(ListBox1.Items[i]);

[Gaws]

Немого оптимизации в код....

x:=ListBox1.Items.Count-1;
for i:=0 to x do
 If ListBox1.Selected[i] then
  ListBox2.Items.Add(ListBox1.Items[i]);

и Больше дополнить нечем.

[P.O.D]

Gaws Компилятор сам так сделает.

[koder]

Спасибо ребята!

[koder]

А как потом удалить выделенные элементы, а также

 for i:=0 to SendToBox.Items.Count-1 do
       If SendToBox.Selected[i] then
       begin
         tmpClient := TCPServer1.Connections[I];
         TCPServer1.Send(tmpClient, PChar(Code), Length(Code));
       end;

а также соединения TCPServer1.Connections[I]
есть ли другой способ отличный от записывание номеров в массив в список?

[Testudo]

koder, проходись по списку и делай, что тебе нужно с TCPServer1.Connections[I]. Если не получилось, скажем, удалить соединение, то делай Selected:=false. А после цикла вызови ListBox1.DeleteSelected;
Вот и все.

[koder]

ПРи удалении Connections[i] например удаляя 1 элемент, второй элемент не станет первым?

[Testudo]

Цитата koder @ 28.03.07, 05:33

ПРи удалении Connections[i] например удаляя 1 элемент, второй элемент не станет первым?

Станет. При удалении элементов из списков пользуются обратным ходом: for i:=max downto 0 do

[DMX_XC]

 for i:=ListBox1.Count-1 DownTo 0 do
  if ListBox1.Selected[i] then
   ListBox1.Items.Delete(i);

[koder]

Как узнать, что ни один элемент Listbox'a не выделен?

[Stratocoder]

Количество выделеных елементов можно прочитать из проперти SelCount.

Сообщение отредактировано: Stratocoder - 29.03.07, 05:48