Текущий архив: 2002.12.26;
Скачать: 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 вся ветка
Текущий архив: 2002.12.26;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.013 c
