Скачать: CL | DM;

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

← →
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 имеет смысл менять лишь при создании индекса с нужными св-ми.
Для сортировки по убыванию надо естественно уже иметь индекс по полю по убыванию, а в приложении уже использовать тот или иной индекс, в зависимости, какая сортировка нужна.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.01 c