[Delphi] Сортировка по убыванию в StringGrid

[Umaru]

Здравствуйте! Подскажите пожалуйста, как сделать сортировку значений по убыванию в StringGrid, по нажатию кнопки? По возрастанию сделала, а вот по убыванию не получается.
Прикладываю проект и скриншот для большей наглядности.

[Serge_Bliznykov]

Сообщение от Umaru

Здравствуйте! Подскажите пожалуйста, как сделать сортировку значений по убыванию в StringGrid, по нажатию кнопки? По возрастанию сделала, а вот по убыванию не получается.

в коде есть сортировка и по возрастанию и по убыванию:

  if TMenuItem(Sender).Tag = 1 then L.CustomSort(DownSort) else L.CustomSort(UpSort);

только нужно в меню вызвать эту сортировку по убыванию.
для этого сделайте следующее:
в режиме дизайнера формы откройте меню MainMenu1 (двойной щелчок мышкой).
выберите пункт меню N9, откройте Object Insector,
в свойствах (заклада Properties) этого N9 найдите свойство Tag и там поставьте 1
перейдите на закладку Events и по клику (событие OnClick) пропишите вызов N8Click

всё. сортировка убыванию сделана.

[Umaru]

Сообщение от Serge_Bliznykov

в коде есть сортировка и по возрастанию и по убыванию:


только нужно в меню вызвать эту сортировку по убыванию.
для этого сделайте следующее:
в режиме дизайнера формы откройте меню MainMenu1 (двойной щелчок мышкой).
выберите пункт меню N9, откройте Object Insector,
в свойствах (заклада Properties) этого N9 найдите свойство Tag и там поставьте 1
перейдите на закладку Events и по клику (событие OnClick) пропишите вызов N8Click

всё. сортировка убыванию сделана.

Спасибо большое! Простите, что не сразу поняла! Не разобралась должным образом.