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

[pups]

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

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

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

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

[Virtson]

Table.Post - изменения записываются в базу;
Table.Cancel до этого - отмена изменений.

[Alexandrov]

Чтобы удалить из *.dbf записи, помеченные на удаление, нужно сделать:

table1.Сlose;
table1.exclusive:= true;
table1.Open;
dbipacktable(table1.dbhandle,table1 .Handle,nil,nil,false);
table1.Сlose;

не забудь в Uses прописать BDE.

Удачи.

[nova-alex]

Для твоего случая есть такой пример (из хелпа):
with Table1 do
begin
Active := False;
DatabaseName := 'Delphi_Demos';
TableName := 'CustInfo';
TableType := ttParadox;
EmptyTable;
end;
Естественно 2,3,4 свойство можешь задавать еще в редакторе для свего Table.

[Alexandrov]

Сообщение от nova-alex

.......TableType := ttParadox;

Человек ведь задавал вопрос относительно DBF файлов а не Paradox.
В таблицах Paradox записи и так исчезают из таблицы, а в DBF они помечаются для удаления и полностью удаляются только если упаковать таблицу (dbipacktable).(Конечно, если нужно полность удалить все записи, тогда просто вызвать Table1.EmptyTable;)

После пакования таблицы рекомендуется её переиндексировать
dbiregenindexes(Table1.Handle);

[nova-alex]

Сообщение от Alexandrov

Человек ведь задавал вопрос относительно DBF файлов а не Paradox.

Благодарю за конкретику. Я в предудущем сообщении написал, что это свойство можно менять, а пример из хелпа.

[SALEM]

Пример:
Query1.SQL.ADD('DELETE FROM "MyTable" Table1');

[Nemon]

table1.executive:=true;
table1.emptyTable;
table1.executive:=false;