Сортировка по убыванию.

← →
AlV (2002-12-06 18:52) [0]

Здравствуйте уважаемые мастера. Хочу попросить у вас помощи. Ситуация такая, хочу организовать в своей БД сортировку по возрастанию и убыванию. За сортировку отвечает нижеприведенный участок кода. Но при любой комбинации переключателей сортировка идет по возрастанию. Как с этим бороться?
Заранее спасибо!

procedure TForm1.Button1Click(Sender: TObject);
begin
case RadioGroup1.ItemIndex of
0: Table1.IndexName:="indSchet";
1: Table1.IndexName:="indName";
2: Table1.IndexName:="";
end;

case RadioGroup2.ItemIndex of
0: Table1.IndexDefs[Table1.IndexDefs.IndexOf(Table1.IndexName)].Options:=
Table1.IndexDefs[Table1.IndexDefs.IndexOf(Table1.IndexName)].Options-
[ixDescending];
1: Table1.IndexDefs[Table1.IndexDefs.IndexOf(Table1.IndexName)].Options:=
Table1.IndexDefs[Table1.IndexDefs.IndexOf(Table1.IndexName)].Options+
[ixDescending];
end;
end;

← →
BoxTer (2002-12-06 19:59) [1]

procedure TForm1.Button1Click(Sender: TObject);
begin
case RadioGroup1.ItemIndex of
0: Table1. IndexFieldNames:="indSchet";
1: Table1. IndexFieldNames:="indName";
2: Table1.IndexName:="";
end;

case RadioGroup2.ItemIndex of
0: Table1.IndexDefs[Table1.IndexDefs.IndexOf(Table1.IndexName)].Options:=
Table1.IndexDefs[Table1.IndexDefs.IndexOf(Table1.IndexName)].Options-
[ixDescending];
1: Table1.IndexDefs[Table1.IndexDefs.IndexOf(Table1.IndexName)].Options:=
Table1.IndexDefs[Table1.IndexDefs.IndexOf(Table1.IndexName)].Options+
[ixDescending];
end;
end;

← →
AlV (2002-12-06 21:32) [2]

Попробовал, не работает 8-(

← →
ЮЮ (2002-12-07 04:05) [3]

IndexDefs, наверное, как и FiedDef имеет смысл менять лишь при создании индекса с нужными св-ми.
Для сортировки по убыванию надо естественно уже иметь индекс по полю по убыванию, а в приложении уже использовать тот или иной индекс, в зависимости, какая сортировка нужна.

Сортировка по убыванию. Найти похожие ветки