Как отменить сортировку в Delphi XE3: использование TButton и групповых переключателей

Delphi , Базы данных , Сортировка и Фильтр

В статье мы рассмотрим, как отменить сортировку в Delphi XE3 с помощью компонентов TButton и групповых переключателей (RadioGroup). Для этого мы будем использовать свойство Sort компонента ADODataSet.

Пример: У вас есть компонент RadioGroup1 с несколькими элементами, и при выборе определенного элемента вы хотите применить сортировку к набору данных ADOTblModels по имени модели в порядке убывания:

case RadioGroup1.ItemIndex of
  0: // no sort
  1: ADOTblModels.Sort := '[Model Name] DESC';
  2: ADOTblModels.Sort := '[Model Name] ASC';
  // and so on...
end;

Теперь, чтобы дать пользователю возможность удалить эту сортировку, вы можете использовать компонент TButton или другой переключатель в группе. Для этого просто присвойте свойству Sort пустую строку, как предложил TLama в комментариях:

procedure TForm1.Button1Click(Sender: TObject);
begin
  ADOTblModels.Sort := ''; // reset the sort order
end;

Или, если вы хотите использовать другой переключатель в группе, чтобы отменить сортировку, вы можете добавить еще одно условие в ваш case-стаatement:

case RadioGroup1.ItemIndex of
  0: // no sort
  1: ADOTblModels.Sort := '[Model Name] DESC';
  2: ADOTblModels.Sort := '[Model Name] ASC';
  3: ADOTblModels.Sort := ''; // reset the sort order
  // and so on...
end;

Вот и все! Теперь пользователь может отменить сортировку набора данных с помощью TButton или другого переключателя в группе.

Создано по материалам из источника по ссылке.

Статья описывает процесс отмены сортировки в Delphi XE3 с использованием компонентов TButton и групповых переключателей (RadioGroup), меняя свойство Sort компонента ADODataSet.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Сортировка и Фильтр ::