Ускорить удаление элементов из TListView

Previous  Top  Next

    
 

 

Code:

procedure AddNewListViewItems;

var

  oldViewStyle: TViewStyle;

begin

  odlViewStyle := ListView1.ViewStyle;

  ListView1.ViewStyle := vsList;

  ListView1.Items.Clear;

  { Add new Listitems here }

  { An dieser werden die neuen ListItems eingefugt }

  ListView1.ViewStyle := oldViewStyle;

end;

 

©Drkb::01151

Взято с сайта: http://www.swissdelphicenter.ch