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