取一定范围内不重复的随机数,不过没有做异常处理,需要的自己扩充
文章来源:http://blog.codelphi.com/ken/archive/2005/12/02/97297.aspx