| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как добавить индексное поле? [D7, Paradox]

Gost ©   (2005-02-14 18:08:00) 

Как добавить индексное поле 'AZZ', если таблица создается таким методом:
      with FieldDefs do
       begin
         Clear;
          with AddFieldDef do
          begin
            Name := 'AZZ';
            DataType := ftString;
            Size := 16;
          end;
         with AddFieldDef do
          begin
            Name := 'BZZ';
            DataType := ftString;
            Size := 4;
          end;
       end;
       CreateTable;

---

DSKalugin   (2005-02-14 20:50:00) [1]

см хэлп F1 TTable.AddIndex()
там еще надо заполнить другие параметры

procedure AddIndex(const Name, Fields: String; Options: TIndexOptions, const DescFields: String='');

type
 TIndexOption = (ixPrimary, ixUnique, ixDescending, ixCaseInsensitive, ixExpression, ixNonMaintained);
 TIndexOptions = set of TIndexOption;

пример
Table1.AddIndex('NewIndex', 'CustNo;CustName', [ixUnique, ixCaseInsensitive]);


ЗЫ индекс будет обновляемым только при наличии первичного индекса в таблице парадокс

---

Anatoly Podgoretsky   (2005-02-14 20:11:00) [2]

Где ты такой синтаксис обнаружил, совсем не соответствует справке.

---

Gost   (2005-02-14 18:22:00) [3]

Т.е.

.......
with AddFieldDef do
         begin
           Name := 'BZZ';
           DataType := ftString;
           Size := 4;
         end;
      end;
      CreateTable;
      Table1.AddIndex('AZZ');
?

---

DSKalugin   (2005-02-14 18:16:00) [4]

после того как таблица зоздана методомм
CreateTable;
сделай TTable.AddIndex()

---

Наверх