VPF::Направление сортировки - Форум программистов

Гость_Konstantin

Дата 22.4.2005, 12:13 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Удачного дня всем!
Подскажите как в listview поменять направление сортировки (по убыванию)

~FoX~

Дата 22.4.2005, 13:19 (ссылка)

(нет голосов)

Загрузка ...

НЕ рыжий!!!

Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

Репутация: 13
Всего: 68

А что нам про это справка говорит? smile

Цитата

stNone No sorting is done.
stData Items are sorted based on their Data property. An event handler must be provided to compare Data values.
stText Items are sorted based on their Caption property.
stBoth Items are sorted based on both the Data and Caption. The Data values are ignored unless an event handler is provided to compare them.

Пример

Код


ListView1.SortType := stText;

Добавлено @ 13:27
Ой, это я погорячился. Тебе видать надо не по возростанию, а по убыванию сортить.

Если так, то только руками, или компонент переписать.

--------------------

…множественность никогда не следует полагать без необходимости…

fess

Дата 22.4.2005, 14:04 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 125
Регистрация: 17.2.2005
Где: г. Мурманск, Росс ия

Репутация: 2
Всего: 3

Цитата

Если так, то только руками, или компонент переписать.

Зачем чуть-что сразу компонент переписывать - надо дальше справку читать smile

Для изменения алгоритва сортировки используется событие OnCompare:

Код


procedure TForm1.ListView1Compare(Sender: TObject; Item1, Item2: TListItem;
  Data: Integer; var Compare: Integer);
begin

{Параметр Compare может иметь три значения: 1, -1 или 0. Единица означает,
что первый элемент больше (или должен быть размещён после) второго элемента.
Минус одни означает, что первый элемент меньше чем (или должен быть размещён
перед) второй элемент. Ноль означает, что два элемента равны - это цитата из DRNB  }

  {для сортировки по тексту по убыванию, если по данным - то сравниваешь сами данные}
 if CompareText(Item1.Caption,Item2.Caption)>0
 then  Compare:=-1
 else if CompareText(Item1.Caption,Item2.Caption)<0
      then  Compare:=1;
  
  {можно это же записать ещё короче, но менее понятно }
//Compare:= -CompareText(Item1.Caption,Item2.Caption);


end;

Это сообщение отредактировал(а) fess - 22.4.2005, 14:19

--------------------

Компьютер не подчиняется законам физики. Только в нём глюки возникают из ничего, файлы исчезают в никуда, а объём измеряется в метрах и называется весом.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »