[SvenSoft]

Добрый день. Пытаюсь упаковать таблицу DBF таким образом :

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33

procedure PackTable2(param_1: olevariant); var   DB: TDBF;    begin      //---------- проверим на существование файла, и если не найдем, не будем ничего создавать ----------   if not FileExists(param_1) then Exit;      //---------- создадим экземпляр TDBF ----------   DB := TDBF.Create(nil);      try       //---------- откроем файл DBF ----------    DB.TableName := param_1;    DB.Exclusive := False;    //DB.Active := True; // так тоже пробовал, вместо DB.Open;    DB.Open;       //---------- пакуем таблицу -----------    DB.PackTable; // на этом моменте возникает трабл.       //---------- закрываем таблицу --------    DB.Close;      finally       DB.Free;      end;    end;

При попытке упаковать таблицу данной процедурой, выдает ошиблку, доходя до метода DB.PackTable;
Что делаю не так, подскажите пожайлуста ?..
подумал что надо к свойству DB.Exclusive := True; применить, но тогда на методе DB.Open; ошибка выскакивает. Почему, не понятно .
Можно сказать, что проблема наверное больше в том, что при установке свойства DB.Exclusive := True; (установка этого свойства дает возможность отпработать без ошибок DB.PackTable; ), не могу открыть файл DB.Open; . Подскажите почему ?