Программы   Загрузка Партнерство   О компании Контакты  
 
                    
  Карта Сайта   
   





Удалить все выделенные элементы списка

Автор: 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;
           




Программы  |  Загрузка  |  Партнерство  |  О компании  |  Контакты

Copyright © LSD Software 2006 - 2011