Блог о программировании, электронике и рыбалке

Сортировка ListView по двум колонкам в Delphi

listview сортировкаСегодня столкнулся с необходимостью отсортировать содержимое ячеек ListView по содержимому двух колонок. Ранее такое делать не приходилось, поэтому решил оставить пост-памятку на будущее. Вдруг, потом еще понадобится.

В своем примере я буду сортировать по колонкам Caption и SubItems[1] (Colum 1 и Colum 3).

Для наглядности, при старте программы я заполняю ListView случайными значениями.

procedure TForm1.FormCreate(Sender: TObject);
var
i:Integer;
begin
for i:=0 to 100 do
begin
with ListView1.Items.Add do
begin
Caption:=IntToStr(Random(10));
SubItems.Add(IntToStr(Random(10000)));
SubItems.Add(IntToStr(Random(5)));
SubItems.Add(IntToStr(Random(10000)));
end;
end;
end;

Получилось так:

listview сортировка

Теперь перейду к сортировке.

Для этого добавим процедуру OnCompare для нашего ListView.

listview сортировка

Код сортировки:

procedure TForm1.ListView1Compare(Sender: TObject; Item1, Item2: TListItem;
Data: Integer; var Compare: Integer);
var
S1, S2: string;
begin
S1 := Item1.Caption;
if Item1.SubItems.Count > 0 then
S1 := S1 + Item1.SubItems[1];
S2 := Item2.Caption;
if Item2.SubItems.Count > 0 then
S2 := S2 + Item2.SubItems[1];
Compare := CompareText(S2, S1);
end;

Далее необходимо вызвать сортировку в нужном нам месте.

ListView1.SortType := stBoth;
ListView1.SortType:=stNone;

В своем примере я просто вставил нужные строки в цикл заполнения ListView данными.

procedure TForm1.FormCreate(Sender: TObject);
var
i:Integer;
begin
for i:=0 to 100 do
begin
with ListView1.Items.Add do
begin
Caption:=IntToStr(Random(10));
SubItems.Add(IntToStr(Random(10000)));
SubItems.Add(IntToStr(Random(5)));
SubItems.Add(IntToStr(Random(10000)));
ListView1.SortType := stBoth;
ListView1.SortType:=stNone;
end;
end;
end;

Результат сортировки:

listview сортировка

  • keyboard_arrow_downСортировка ListView по двум колонкам в Delphi
    • Автор:
    • Миниатюра: Сортировка ListView по двум колонкам в Delphi
    • Рубрика: Delphi в примерах
    • Обновлено: 27.12.2017
    • Комментариев: 2
    • Просмотров: 1 265
      • searchПоисковые боты
        Дата Бот
        2018-04-22 15:07:59 Bing
        2018-04-22 03:36:11 Mail.RU
        2018-04-21 08:11:17 Yandex
        2018-04-21 08:04:47 Google
        2018-04-17 23:58:19 Yandex
        2018-04-17 02:01:34 Google
        2018-04-16 18:48:35 Bing
        2018-04-13 22:56:48 Bing
        2018-04-11 12:38:46 Google
        2018-04-11 05:56:25 Yandex
  • Оцените пожалуйста статью
    1 Star2 Stars3 Stars4 Stars5 Stars
    Loading Загрузка...
  • Поделитесь с друзьями
GeekElectronics

Похожие записи

Комментариев: 2

  • Avatar for source
    source™:

    лучше так:

    procedure TForm1.ListView1Compare(Sender: TObject; Item1, Item2: TListItem;
    Data: Integer; var Compare: Integer);
    var
    S1, S2: string;
    begin
    S1 := Item1.Caption;
    if Item1.SubItems.Count > 0 then
    S1 := S1 + Item1.SubItems[2];
    S2 := Item2.Caption;
    if Item2.SubItems.Count > 0 then
    S2 := S2 + Item2.SubItems[2];
    Compare := CompareValue(StrToInt(S2), StrToInt(S1));
    end;

Добавить комментарий

arrow_upward