Не применяется параметр Options для Table1.IndexDefs.IndexOf[i]

[adriano]

Доброго времени суток. Столкнулся с данной проблемой:
Не применяется параметр Options для Table1.IndexDefs.IndexOf[i] при работе с компонентом Table, БД - Paradox.

Привожу пример из книжки, в котором производится сортировка по возрастанию (или по убыванию):

procedure TForm1.Button5Click(Sender: TObject);
begin
case Radiogroup1.ItemIndex of
0: Table1.IndexName := 'FAddress';
1: Table1.IndexName := 'indFCity';
end;
case Radiogroup2.ItemIndex of
0: Table1.IndexDefs
[Table1.IndexDefs.IndexOf(Table1.Ind exName)].Options :=
Table1.IndexDefs
[Table1.IndexDefs.IndexOf(Table1.Ind exName)].Options +
[ixDescending];
1: Table1.IndexDefs
[Table1.IndexDefs.IndexOf(Table1.Ind exName)].Options :=
Table1.IndexDefs
[Table1.IndexDefs.IndexOf(Table1.Ind exName)].Options -
[ixDescending];
end;
end;


Если добавить Table1.IndexDefs в инспектор объектов и поменять параметры Options в нём, то тоже не помогает.

Сортировку по убыванию можно сделать только через Database Desktop.

Если кто может, помогите советом почему программно не работает параметр Options.
Спасибо.

[mihali4]

А у вас индексы по каждому из этих полей существуют?

[adriano]

Сообщение от mihali4

А у вас индексы по каждому из этих полей существуют?

Немного исправил.
Да, индексы существуют, но создавались с помощью DataBase Desktop.
Может их программно создавать надо чтобы можно было потом программно поменять?

Если даже сделать так
Table1.IndexDefs[2].Options := Table1.IndexDefs[2].Options - [ixDescending];
Table1.IndexDefs[2].Options := Table1.IndexDefs[2].Options + [ixDescending];
то всё-равно порядок сортировки не меняется

[mihali4]

Привожу пример из книжки

Что за книга? Кажется, вы что-то не дочитали...

[adriano]

Сообщение от mihali4

Что за книга? Кажется, вы что-то не дочитали...

"При необходимости изменить порядок сортировки по некоторому полю, это удобно сделать либо при настройке свойств таблицы с помощью программы Database Desktop, либо при создании индексов программно путём задания значения ixDescending для параметра Options."
И приводится пример с Table1.IndexDefs[i].Options

Если Table1.IndexDefs[i].Options служит только для чтения, тогда чтобы поменять порядок сортировки, нужно пересоздавать индекс. Возможно имелось ввиду это:

case Radiogroup2.ItemIndex of
0: Table1.IndexDefs
[Table1.IndexDefs.IndexOf(Table1.Ind exName)].Options :=
Table1.IndexDefs
[Table1.IndexDefs.IndexOf(Table1.Ind exName)].Options -
[ixDescending];
1: Table1.IndexDefs
[Table1.IndexDefs.IndexOf(Table1.Ind exName)].Options :=
Table1.IndexDefs
[Table1.IndexDefs.IndexOf(Table1.Ind exName)].Options +
[ixDescending];
end;
Table1.Close;
Table1.AddIndex(Table1.IndexDefs
[Table1.IndexDefs.IndexOf(Table1.Ind exName)].Name, Table1.IndexDefs
[Table1.IndexDefs.IndexOf(Table1.Ind exName)].Fields, Table1.IndexDefs
[Table1.IndexDefs.IndexOf(Table1.Ind exName)].Options);
Table1.Open;

В таком виде работает. Поправьте меня что правильно или неправильно, особенно про Table1.IndexDefs[i].Options с доступом только на чтение

[mihali4]

Программное создание индекса прекрасно описано в хэлпе (F1) в свойстве IndexDefs property (TTable).
Там есть хороший пример.
А в вашем нагромождении строк, извините, лень разбираться...

[adriano]

Сообщение от mihali4

Программное создание индекса прекрасно описано в хэлпе (F1) в свойстве IndexDefs property (TTable).
Там есть хороший пример.
А в вашем нагромождении строк, извините, лень разбираться...

procedure TForm1.Button6Click(Sender: TObject);
begin
case Radiogroup2.ItemIndex of
0: with Table1 do AddIndex(IndexDefs[IndexDefs.IndexOf(IndexName)].Name, IndexDefs[IndexDefs.IndexOf(IndexName)].Fields, (IndexDefs[IndexDefs.IndexOf(IndexName)].Options - [ixDescEnding]));
1: with Table1 do AddIndex(IndexDefs[IndexDefs.IndexOf(IndexName)].Name, IndexDefs[IndexDefs.IndexOf(IndexName)].Fields, (IndexDefs[IndexDefs.IndexOf(IndexName)].Options + [ixDescEnding]));
end;
Table1.Exclusive := False;
Table1.Open;
end;


Немного по другому сделал.
Строк много потому что индекс создаётся на основе уже существующего индекса.
Но я то хотел узнать можно ли его не создавать заново для изменения например порядка сортирвки, а просто поменять программно параметр options ? то есть поменять Table1.IndexDefs[i].Options

[mihali4]

А вы не обратили свое внимание на то, что именно при создании индекса вы указываете направление сортировки?
Кстати, об этом же недвусмысленно сказано и в той выдержке из книги (название которой вы упорно скрываете):

При необходимости изменить порядок сортировки по некоторому полю, это удобно сделать либо при настройке свойств таблицы с помощью программы Database Desktop, либо при создании индексов программно путём задания значения ixDescending для параметра Options.

Если не хотите связываться с этой рутиной, используйте библиотеку EhLib, там для DBGrid-a это реализовано.

[adriano]

Сообщение от mihali4

А вы не обратили свое внимание на то, что именно при создании индекса вы указываете направление сортировки?
Кстати, об этом же недвусмысленно сказано и в той выдержке из книги (название которой вы упорно скрываете):

Если не хотите связываться с этой рутиной, используйте библиотеку EhLib, там для DBGrid-a это реализовано.

Спасибо. Библиотека интересная.