在delphi里怎样实现将dbf文件里的内容完全删除？就好像foxpro里的pack命令的效果那样

Question

我在程序里用“delete from tablename”将dbf的内容删除，但这不是真正删除，请问怎样做到像foxpro里的pack命令那样的效果。

Answer 1

adocommand指向DBF:
ADOCOMMAND1.COMMANDTEXT:='PACK 123.DBF';
ADOCOMMAND1.EXECUTE;

Answer 2

adoqry1.Close;
  adoqry1.SQL.Clear;
  adoqry1.SQL.Add('delete from table1);
  adoqry1.ExecSQL;
  adoqry1.Close;
  adoqry1.SQL.Clear;
  adoqry1.SQL.Add('pack table1);
  adoqry1.ExecSQL;我运行上面的代码，但出错：file is in use
请问应该怎样解决？

Answer 3

我上面的数据库是dbf，没有truncate这个功能