如何将数据集中的纪录全部删除?

Question

with table1 do
while not eof do
begin
  first;
  delete;
end;

Answer 1

with query do
  begin
   close;
   sql.clear;
   sql.add('delete tablename');
   Execsql;
  end;

Answer 2

with query do
  begin
   close;
   sql.clear;
   sql.add('delete tablename');
   Execsql;
  end;

Answer 3

换一种思路：
with query do
  begin
   close;
   sql.clear;
   sql.add('select * from tablename where 1=2');
   Execsql;
  end;

Answer 4

也可以这样：
var 
i:integer;
begin
for i:=1to query.recordcount do
begin
 query.frist; 
 query.delete;
end;
end;

Answer 5

table.empty;
或query 中sql:=delete from your_table

Answer 6

with query do
  begin
   close;
   sql.clear;
   sql.add('drop table tablename');
   Execsql;
  end;
比较快速的方法