Лидеры

Вы бы рассказали что там происходит в ролике, а то не у всех есть лишние 40 минут. Offtop Есть один отличный прием, о котором мало кто знает. Если вам нужно поработать со стилем от моб. платформы на Windows (так гораздо быстрее программировать и отлаживать GUI) - можно просто открыть в текстовом редакторе style файл, найти в нем строку platform и заменить ее с напр. ANDROID на MSWINDOWS, сохранить, а затем загрузить в текущий Default стиль.

Имхо BeginUpdate\EndUpdate тут лишние. Здесь одна операция, а не несколько. И лучше это будет сделать в OnResize кнопки.

Что то я не понял в чем проблема у автора. Стандартный метод сортировки работает (Delphi Berlin). uses System.Generics.Defaults; ... procedure TForm1.ButtonSortClick(Sender: TObject); var Comparer: IComparer<TListViewItem>; begin Comparer := TDelegatedComparer<TListViewItem>.Create( function(const LeftItm, RightItm: TListViewItem): Integer begin Result := CompareText(LeftItm.Text, RightItm.Text); end); ListView1.Items.Sort(Comparer); end; А также можно по Data procedure TForm1.ButtonSortClick(Sender: TObject); var Comparer: IComparer<TListViewItem>; begin Comparer := TDelegatedComparer<TListViewItem>.Create( function(const LeftItm, RightItm: TListViewItem): Integer begin Result := 0; //no change if LeftItm.Data['number'] > RightItm.Data['number'] then Result := 1 //depend on sort order asc/desc else if LeftItm.Data['number'] < RightItm.Data['number'] then Result := -1; //depend on sort order asc/desc end); ListView1.Items.Sort(Comparer); end; Не забудьте BeginUpdate - EndUpdate. Напомню что к объектам ListViewItem можно обращаться не через Data['name'], а напрямую через индексы, что гораздо быстрее, т.к. не нужно сравнивать все строки в цикле, это важно при большом количестве Objects per Item (напр. больше 5 в режиме DynamicAppearance).