Mail.ruПочтаМой МирОдноклассникиВКонтактеИгрыЗнакомстваНовостиКалендарьОблакоЗаметкиВсе проекты

Delphi. Базы данных. Сортировка

[twildd] Ученик (200), закрыт 16 лет назад
Есть код:

procedure TForm1.RadioGroup3Click(Sender: TObject);
begin
case radiogroup3.ItemIndex of
0:Table3.indexfieldnames:='Код поставщика';
1:Table3.indexfieldnames:='Имя поставщика';
2:Table3.indexfieldnames:='Уровень доверия';
end;
end;

Он привязан к радиогрупп. По щелчку по одной из 3 - сортирует по возрастанию.

Как-нибудь можно сделать по убыванию? Что изменить в коде?
Лучший ответ
AVP Мастер (1615) 16 лет назад
У ADOTable'a есть свойство sort
TableName.sort:='имя_сортируемого_поля параметр_сортировки'
параметр_сортировки:
ASC - по возрастанию
DESC - по убыванию
например
TableName.sort:='Уровень доверия DESC'
Остальные ответы
als-a Мастер (1862) 16 лет назад
индекс перестроить по убыванию....
Сизов Максим Мудрец (18744) 16 лет назад
В таблице индекс задай как убывающий.
Случайный прохожий Мудрец (19602) 16 лет назад
Сделай запросом с order by. TTable - это отстой.
Похожие вопросы