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

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

Реиндексацыя дазы! [D5, DBF4]

-=Le][=- ©   (2007-10-03 14:21:00) 

Доброго время суток, почтенные мастера!
Есть локальная база данных Test.dbf в формате DBF4, используется драйвер BDE. В файле есть несколько ключевых полей!
Вопрос: как программно переиндексировать базу (файл)?

---

Johnmen   (2007-10-03 14:28:00) [1]

procedure ReindexTable(Table: TTable);
var
 WasActive: Boolean;
 WasExclusive: Boolean;
begin
 with Table do begin
   WasActive := Active;
   WasExclusive := Exclusive;
   DisableControls;
   try
     if not (WasActive and WasExclusive) then Close;
     try
       Exclusive := True;
       Open;
        Check(dbiRegenIndexes(Handle));
     finally
       if not (WasActive and WasExclusive) then begin
         Close;
         Exclusive := WasExclusive;
         Active := WasActive;
       end;
     end;
   finally
     EnableControls;
   end;
 end;
end;

(с) RxLib

---

Наверх