procedure TForm1.Button1Click(Sender: TObject); VAR i: integer; begin ADOQuery1.SQL.Clear; ADOQuery1.SQL.add('select * from [你要连接的数据表] where (这里是你查询条件,不描述了) order by id desc'); ADOQuery1.Open; for i:=1 to ADOQuery1.RecordCount do //这里就是要删除的数量 ADOQuery1.delete; ShowMessage('已经把你痛恨的记录全部删除了!'); end;
VAR
i: integer;
begin
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.add('select * from [你要连接的数据表] where (这里是你查询条件,不描述了) order by id desc');
ADOQuery1.Open; for i:=1 to ADOQuery1.RecordCount do //这里就是要删除的数量
ADOQuery1.delete;
ShowMessage('已经把你痛恨的记录全部删除了!');
end;