Советы по Delphi

         

Использование выбранных элементов TListBox


...это будет действительно классно, если я смогу просто переместить выбранные элементы в StringList. Или, например, вообще удалить невыбранные элементы из ListBox.

Следующий код перемещает все выбранные элементы ListBox1 в ListBox2:

    procedure TForm1.Button1Click(Sender: TObject); var ix:integer; begin with ListBox1 do begin if SelCount < 1 then exit; for ix := 0 to Items.Count-1 do if Selected[ix] then ListBox2.Items.Add(Items[ix]); for ix := Items.Count-1 downto 0 do if Selected[ix] then Items.Delete(ix); end; end;

=== Mike Orriss === [000692]



Содержание раздела