Текущий архив: 2004.05.23;
Скачать: CL | DM;

Вниз

pack table   Найти похожие ветки 

← →
Viktor   (2004-04-28 11:53) [0]

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

---

← →
Соловьев ©   (2004-04-28 11:56) [1]



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;


---

← →
Viktor   (2004-04-28 12:40) [2]

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

---

Страницы: 1 вся ветка

Текущий архив: 2004.05.23;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.047 c