各位高手們您好: 小弟有個問題不知如何解決,困擾了好久...... 就是我想從1~720個數中,取30個亂數而不重覆不知如何下筆去寫... 謝謝!!

chaopi 你好

  試試程式    Var
  i,j,t:Integer ;
  aSelect : Array Of Integer ;
  Dupl : Boolean ; //
Begin
  SetLength(aSelect ,30); // 設定陣列30個元素 
  Randomize;
  For i:=0 To 29 Do Begin
    While True Do Begin
      t := Random(720) 1; // 隨機值為 0~719之一故予以加1變為1~720的範圍
      If i = 0 THen Break; // 
      Dupl :=False; //
      For j:= i-1 DownTo 0 Do Begin  // 往前檢查是否有重複的值
        If aSelect[j]=t Then Begin
          Dupl := True;  // 已有相同的值
          Break ;        // 不再檢查，準備取下一個隨機值
        End;
      End;
      If Not Dupl Then Break; // 沒有重複，可加入到陣列了
    End;
    aSelect[i] ;= t ;
  End;
  // aSelect陣列中 ３０個不重複的就是你要的值啦
End;    

Hi chaopi: Chance36版大提供了很好的方法    小弟這邊提供用TstringList 另一個方法    1. 取亂數 Random(720)+1 參考 http://delphi.ktop.com.tw/topic.php?topic_id=48717 2. 不重複的方法 小弟目前想到利用的方法,可將30個亂數逐一放到TStringList,重複則重選..    

procedure TForm1.Button1Click(Sender: TObject);
Var
 list: TstringList;
 str:String;
begin
 list:=TStringList.Create;
 while list.Count<30 do begin
  str:=inttostr(random(720) 1); //get 亂數
  if list.indexOf(str)<0 then list.Add(str);
 end;     showmessage(list.Text); //看一下對嘛???
end;

希望對您有幫助 ~悠遊法國號~ 發表人 - yachanga 於 2004/05/17 00:50:44

插一下花！    這篇你參考看看 http://delphi.ktop.com.tw/topic.php?topic_id=42257 ---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ----------------------------------

------
Fishman