从不连续的号码中找到最多不连续的数字

Question

从1～10000的数字，我用了一大部分，我要找出没用到的号码中最多连续的数字。
用了的数字已经保存在数据库中了。有什么办法吗？

Answer 1

var
  Max,Num,i:integer;
begin
   Max:=0;
   Num:=0;
   for i:=0 to 10000 do
      begin
         if sql语句查这个号码是否存在=false then
            num=num+1 ;
         else
            num:=0; //不连续清0
         if num>max then
            max:=num;
         end;edn;