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

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

pack table [D6, dBase, FoxPro]

Viktor ©   (2004-04-28 11:53:00) 

после удаления некоторых записей пытаюсь паковать таблицу,
если она открыта то ошибка - нужен полный доступ к файлу,
если перед паковкой таблицу закрываю то не может работать с закрытой таблицей
подскажите, как подготовить таблицу к паковке

---

Viktor   (2004-04-28 12:40:00) [1]

спасибо, сайчас попробую...

---

Соловьев   (2004-04-28 11:56:00) [2]



procedure PackDBaseTable(Table:TTable);
var OldState : boolean ;
begin
with Table do
begin
  OldState := Active; Close;
  Exclusive := True; Open;

  DbiPackTable(DBHandle, Handle, nil, nil, True);

  Close; Exclusive := False;
  Active := OldState;
end;
end;


---

Наверх