|
||||||||||
|
||||||||||
|
||||||||||
|
Удалить все выделенные элементы списка
Автор: http://www.swissdelphicenter.ch procedure TForm1.Button1Click(Sender: TObject); var i: integer; begin for i := ListBox1.Items.Count - 1 downto 0 do if ListBox1.Selected[i] then ListBox1.Items.Delete(i); end; |
  |
![]() |
![]() |