Сортировка в обе стороны в ListView

Posted by obzor under Delphi

Сортируется только в одном направлении от меньшего к большему. Помогите, пожалуйста организовать сортировку в обе стороны.

evg_m

Заведите ДВЕ (можно и больше) функции сравнения и менять ИХ

if ..... then
  LVusers.customSort(@LVCompareUp, column.Index)
else
  LVusers.customSort(@LVCompareDown, column.Index);

function LVCompareUp(lParam1, lParam2, lParamSort: Integer): Integer stdcall;
var
  S1, S2: WideString;
begin
  S1 := TListItem(lParam1).Caption;
  S2 := TListItem(lParam2).Caption;
  Result := StrCmpLogicalW(PWideChar(S1), PWideChar(S2));
end;

function LVCompareDown(lParam1, lParam2, lParamSort: Integer): Integer stdcall;
var
  S1, S2: WideString;
begin
  S1 := TListItem(lParam1).Caption;
  S2 := TListItem(lParam2).Caption; 

//а здесь поменяем местами (cравним наоборот)
  Result := StrCmpLogicalW(PWideChar(S2), PWideChar(S1));
end;

тема на форуме

Похожие статьи

• Задать HotKey в ListView на Delphi
• HotKey в ListView через WinAPI
• Загрузка в ListView из ini файла
• Как определить нажатие Item в ListView?
• как можно выгрузить только одну колонку с ListView?
• Создать и заполнить ListView
• ListView для отображения информации о файлах
• Загрузить в ListView список файлов и директорий
• Как в ListView сделать нумерацию строк?
• Сортировка в listview