|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Упаковка таблицы TDBF
Добрый день. Пытаюсь упаковать таблицу DBF таким образом :
Код:
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.Exclusive := True; применить, но тогда на методе DB.Open; ошибка выскакивает. Почему, не понятно . Можно сказать, что проблема наверное больше в том, что при установке свойства DB.Exclusive := True; (установка этого свойства дает возможность отпработать без ошибок DB.PackTable; ), не могу открыть файл DB.Open; . Подскажите почему ? Последний раз редактировалось SvenSoft, 03.02.2012 в 23:43. |