关于删除的问题

Question

当一个表中的所有记录被删除时，继续执行删除，系统将会报错，请问个位高手该如何解决？

Answer 1

while not adoquery1.eof do
begin
  adoquery1.delete;
  next;
end;

Answer 2

if query1.count>0 then
begin
  //delete records
  ...
end;

Answer 3

Sql.Text := 'delete from Table' ;要看到结果，重新刷新数据(From  赵哥)

Answer 4

with table1 do 
begin 
try
  while not(eof) do 
  begin 
   delete;
   next;
  end;
except
  showmessage('删除出错');
end;