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

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

Возникает ошибка при упаковке таблицы DBase [D6, dBase, FoxPro]

AbrosimovA ©   (2003-10-24 10:18:00) 

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

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:00) [1]

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

---

Наверх