关于提取数据库中的记录的问题！

Question

var oldid,newid:integer;
    isfind:boolean;
with mysql do
begin
 close;
 sql.clear;  
 sql.add('select id from yourtable order by id');
 open;
 if not (bof and eof) then
 begin
   oldid:=fieldbyname('id').asinteger;
   newid:=oldid;
   isfind:=false;
   while not eof do 
   begin
      inc(i);
      newid:=fieldbyname('id').asinteger;
      if newid-oldid>1 then
      begin
        isfind:=true;
        break;
      end else
        oldid:=newid;    
      next; 
   end;
 end; 
end;

Answer 1

To zjqyb()  我现在没有环境，等明天我试一试！
                                    谢谢你的原码！