取一定范圍內不重復的隨機數,不過沒有做異常處理,需要的自己擴充
文章來源:http://blog.codelphi.com/ken/archive/2005/12/02/97297.aspx