На этом шаге мы рассмотрим свойства, позволяющие получать информацию об индексах.
Свойство IndexDefs компонента TTable содержит ссылку на объект класса TIndexDefs. С помощью свойств и методов этого класса можно получить информацию об индексах таблицы.
| Свойство | Описание |
|---|---|
| Fields | Содержит список полей, по которым построен индекс |
| Name | Содержит имя индекса |
| Count | Содержит количество индексов. Индексы нумеруются, начиная с 0 |
Например, данная процедура запишет в TListBox имена всех индексов и поля, по которым этот индекс построен.
procedure View; begin ListBox1.Clear; Table1.IndexDefs.Update; for i:=0 to Table1.IndexDefs.Count - 1 do ListBox1.Items.Add (Table1.IndexDefs[i].Name +' '+ Table1.IndexDefs[i].Fields); end;
Замечание. Перед считыванием значений свойств TIndexDefs необходимо выполнить метод IndexDefs.Update для обновления информации обо всех имеющихся индексах. Для таблиц Paradox первичный индекс не имеет имени и для него в свойстве Name возвращается пустая строка.
На следующем шаге мы рассмотрим установку текущего индекса.
