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

Вниз

Возникает ошибка при упаковке таблицы DBase   Найти похожие ветки 

← →
AbrosimovA   (2003-10-24 10:18) [0]

Не могу понять в чем проблема, при выполнении процедуры упаковки
возникает исключение, что таблица используется и упаковки не происходит. Где я мог допустить ошибку?

procedure PackTable(Table: TTable);
begin
Table.Close;
Table.Exclusive:=true;
Table.Open;
Check(DbiPackTable(Table.DBHandle, Table.Handle, nil, szDBASE, True));
Table.Close;
Table.Exclusive:=false;
Table.Open;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
//Смена 1
if (Hour>="00:00:00")and(Hour<"08:00:00") then begin
if SM1 then begin
Table1.First;
if Table1.RecordCount > 2 then begin
Table1.Delete;
PackTable(Table1);
end;
SM1:=false;
end;
end;
//Смена 3
if (Hour>="16:00:00")and(Hour<="23:59:59") then SM1:=true;
end;

---

← →
sniknik ©   (2003-10-24 10:38) [1]

в дельфях проверь в отладчике чтобы закрыта была.

---

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

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

Наверх

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