为什么*.DBF格式的数据表不能删除记录？(100分)

在database desktop 里可删除，但是文件大小跟没删除前一样。在delphi里，看到数据仍
然未删除，如何可以方便地删除记录？我使用的是table控件，语句为：
table1.edit;
table1.delete;
但是执行后,再刷新，记录原封未动。
如果使用 table1.active:=false;
tabel1.databasename:='test';
...........
tabel1.emptytable; 清空记录，仍是徒劳无功。请问各位高手应具体怎样操
作才能方便地进行记录清空和删除？请各位朋友不吝赐教。

以前有人發過類似的貼子了，如下單元可以pack一下表，刪除做了刪除標記的表
procedure PackTable(Table: TTable);
var
Props: CURProps;
hDb: hDBIDb;
TableDesc: CRTblDesc;
begin
table.open;
// Make sure the table is open exclusively so we can get the db handle...
if not Table.Active then
raise EDatabaseError.Create('Table must be opened to pack');
if not Table.Exclusive then
raise EDatabaseError.Create('Table must be opened exclusively to pack');
// Get the table properties to determine table type...
Check(DbiGetCursorProps(Table.Handle, Props));
// If the table is a Paradox table, you must call DbiDoRestructure...
if Props.szTableType = szPARADOX then begin
// Blank out the structure...
FillChar(TableDesc, sizeof(TableDesc), 0);
// Get the database handle from the table's cursor handle...
Check(DbiGetObjFromObj(hDBIObj(Table.Handle), objDATABASE, hDBIObj(hDb)));
// Put the table name in the table descriptor...
StrPCopy(TableDesc.szTblName, Table.TableName);
// Put the table type in the table descriptor...
StrPCopy(TableDesc.szTblType, Props.szTableType);
// Set the Pack option in the table descriptor to TRUE...
TableDesc.bPack := True;
// Close the table so the restructure can complete...
Table.Close;
// Call DbiDoRestructure...
Check(DbiDoRestructure(hDb, 1, @TableDesc,nil, nil, nil, False));
end
else
// If the table is a dBASE table, simply call DbiPackTable...
if (Props.szTableType = szDBASE) then
Check(DbiPackTable(Table.DBHandle, Table.Handle, nil, szDBASE, True))
else
// Pack only works on PAradox or dBASE; nothing else...
raise EDatabaseError.Create('Table must be either of Paradox or dBASE ' +
'type to pack');
//Table.Open;
end;

简单地说，你Delete一条记录之后，数据库并未真正物理地把这条记录删除了，而只
是做了一个“该记录已被删除”的标识，以使其不显示给用户，而Pack之后，数据库
才会把做了删除标识的记录的真正删除了。

需要pack一下

txmaster 说的对，delete后还需pack

多人接受答案了。