удалить записи в таблице DBF

← →
pupspups © (2006-11-15 14:49) [0]

Подскажите пожалуйста,

есть таблица в DBF файле. Нужно её очистить от записей.
пишу

Table1.First;
while not Table1.Eof do
begin
Table1.Delete;
end;

Но после этого в DBF происходит не удаление записей а лишь пометка на удаление.
Подскажите как либо сжать, либо другой вариант очистки.

← →
clickmaker © (2006-11-15 14:51) [1]

EmptyTable?

← →
pupspups © (2006-11-15 14:56) [2]

при написание EmptyTable выскакивает ошибка:

ProjectXXX.exe raised exception class EDBEngineError with messgae "Table is busy"

Empty вызывал так:
with Table1 do
begin
Active := False;
TableName := "Name.dbf";
TableType := ttDefault;
EmptyTable;
end;

← →
sniknik © (2006-11-15 14:58) [3]

закрой в дельфях (в режиме разработки)

← →
pupspups © (2006-11-15 15:03) [4]

т.е. в Object Ispectore? я правильно Вас понял.

← →
sniknik © (2006-11-15 15:22) [5]

а ты попробуй и узнаешь...
вообще ошибка ""Table is busy"" не конкретизирует где, просто говорит - открыта, гдето, а нужна закрытой... весьде.
иначе (если б зависело только от одного) то словил бы "Table is busy Object Ispector-ом"...

спасибо, разобрался

> pupspups (15.11.2006 14:49:00) [0]

Наоборот, происходит именно удаление, не происходит упаковка таблицы, так не одна база этого не делает.

удалить записи в таблице DBF Найти похожие ветки