Нужно отсортировать Нужно отсортировать ListView

@Fascinator · Регистрация: 09.05.2010

Студворк — интернет-сервис помощи студентам

Прямо беда какая-то...
Делаю по классике... и пример готовый в наличии есть, а у меня не работает. Вот мой код:

сверху объявил:

Delphi
1
2
3
4
5
 // sorting
  LastSortedColumn: integer;
  Ascending: boolean;
function SortByColumn(Item1, Item2: TListItem; Data: integer): integer stdcall;
  // sorting

на форм-креат присвоил:

Delphi
1
2
  LastSortedColumn := -1;
  Ascending := True;

и далее:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
function SortByColumn(Item1, Item2: TListItem; Data: integer): integer; stdcall;
  begin
    if Data = 0 then
      Result := AnsiCompareText(Item1.Caption, Item2.Caption)
    else
      Result := AnsiCompareText(Item1.SubItems[Data-1],
                                Item2.SubItems[Data-1]);
    if not Ascending then Result := -Result;
  end;
 
procedure TfrmUserMain.lviABContactsColumnClick(Sender: TObject; Column: TListColumn);
begin
  if Column.Index = LastSortedColumn then
    Ascending := not Ascending
  else
    LastSortedColumn := Column.Index;
 
  lviABContacts.CustomSort(@SortByColumn, Column.Index);
end;

Это адресная книга. Заполняется из списка на OnData.
Помогите плиз.

@Fascinator · 31.08.2011, 13:32 **[ТС]**

Еще 1 момент:
в примере, который у меня есть все работает.
У меня же не происходит вызова функции (я трассировал - она и не начинает работать). Почему?

Delphi
1
2
3
4
5
6
7
8
9
function SortByColumn(Item1, Item2: TListItem; Data: integer): integer; stdcall;
  begin
    if Data = 0 then
      Result := AnsiCompareText(Item1.Caption, Item2.Caption)
    else
      Result := AnsiCompareText(Item1.SubItems[Data-1],
                                Item2.SubItems[Data-1]);
    if not Ascending then Result := -Result;
  end;

@SecurAdmin · 31.08.2011, 13:45

Не знаю, каким примером ты пользуешься, попробуй вот это - у меня все работает:

Один в один переписывай код и вперед на мины!

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
procedure TForm.ListView1Compare(Sender: TObject; Item1, Item2: TListItem;
  Data: Integer; var Compare: Integer);
   var
 ix: Integer;
begin
 if ColumnToSort = 0 then
   Compare := CompareText(Item1.Caption,Item2.Caption)
 else begin
  ix := ColumnToSort - 1;
  Compare := CompareText(Item1.SubItems[ix],Item2.SubItems[ix]);
 end;
 
end;
 
procedure TForm.ListView1ColumnClick(Sender: TObject; Column: TListColumn);
begin
   ColumnToSort := Column.Index;
 (Sender as TCustomListView).AlphaSort;
 
end;

Удачи!

@Fascinator · 31.08.2011, 14:32 **[ТС]**

В том-то и беда...
Сделал, как ты сказал. Не отрабатывает проца:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
procedure TfrmUserMain.lviABContactsCompare(Sender: TObject; Item1, Item2: TListItem;
  Data: Integer; var Compare: Integer);
   var
 ix: Integer;
begin
 if ColumnToSort = 0 then
   Compare := CompareText(Item1.Caption,Item2.Caption)
 else begin
  ix := ColumnToSort - 1;
  Compare := CompareText(Item1.SubItems[ix],Item2.SubItems[ix]);
 end;
 
end;

Why?

Новые блоги и статьи Все статьи Все блоги /
Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .	Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .
Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .	Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .	Отправка уведомления на почту при создании или изменении элементов справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной записи электронной. . .