На этом шаге мы рассмотрим свойства, позволяющие получать информацию об индексах.
Свойство IndexDefs компонента TTable содержит ссылку на объект класса TIndexDefs.
С помощью свойств и методов этого класса можно получить информацию об индексах таблицы.
Таблица 1. Основные свойства 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 возвращается пустая строка.
На следующем шаге мы рассмотрим установку текущего индекса.