求号码相邻、重复问题

用7个edit输入7个1-30之间的任意数字，再从含7个号码（号码也在1-30之间）字段（字段：号码1、号码2、号码3，号码4，号码5，号码6，号码7）的数据库中调取最后一条记录内的7个号码值，和edit输入的7个号码比较，分别计算出相邻、重复号码的个数，如何实现？

  比如edit输入的7个号码为 ： 4、14、19、22、26、29、30
数据库最后一条记录内7个号码为 ： 1、2 、6 、11、14、19、27 ， 这两组号码中都有14和19两个号码，即为重复，就是重号个数为2，edit输入的26和数据库中的27相邻，即为邻号，邻号个数为1

  又比如edit输入的7个号码为 ： 6、8、10、21、25、28、29
数据库最后一条记录内7个号码为 ： 1、2 、3 、4、 8、23、28 ， 这两组号码中都有8和28两个号码，即为重复，就是重号个数为2，edit输入的29和数据库中的28相邻，即为邻号，邻号个数为1


我的思路是将两组号码分别装入数组，再进行比较，但不知道如何实现？
如： data[0]:=strtoint(editNo1.Text); //将各个edit输入框内容装入数组
  data[1]:=strtoint(editNo2.Text);
  data[2]:=strtoint(editNo3.Text);
  data[3]:=strtoint(editNo4.Text);
  data[4]:=strtoint(editNo5.Text);
  data[5]:=strtoint(editNo6.Text);
  data[6]:=strtoint(editNo7.Text);


  DBlastRecord[0]:=ADODataSetLishiJilu.fieldByName('号码1').AsInteger; //将数据库最后一期的7个号码值装入数组
  DBlastRecord[1]:=ADODataSetLishiJilu.fieldByName('号码2').AsInteger;
  DBlastRecord[2]:=ADODataSetLishiJilu.fieldByName('号码3').AsInteger;
  DBlastRecord[3]:=ADODataSetLishiJilu.fieldByName('号码4').AsInteger;
  DBlastRecord[4]:=ADODataSetLishiJilu.fieldByName('号码5').AsInteger;
  DBlastRecord[5]:=ADODataSetLishiJilu.fieldByName('号码6').AsInteger;
  DBlastRecord[6]:=ADODataSetLishiJilu.fieldByName('号码7').AsInteger;
之后比较，再就是如何实现调取数据库最后一条记录值，并装进数组？

期待高手帮助

LZ整天在搞这个抽奖的东西？？？这些都是基本的算法啊

确实想不出来，请kaikai兄弟多多帮助，谢谢，不是抽奖的

重号个数会求搞定了，邻号个数算法还是不会，谁能帮我，感激不尽

哈哈，自己全部搞定了，还是要谢谢回复过的兄弟。