想請問各位高手.. 取亂數有 random randomize randseed. 應該還有一個是為rang吧 請問. 我該怎麼在第一次取亂數之後 從第一次取的亂數往後或往前取呢 就像猜數字那樣.. 謝謝..

參考一下

procedure TForm1.Button1Click(Sender: TObject);
  var
    i :  integer;
    bb : array[1..5] of integer; //假設你要5組號碼
begin
  Randomize;//撥亂種子
   for i := 1 to 5 do
   begin
     repeat
       bb[i] := random(10000);
     until
       bb[i]>bb[i-1] ;
       ShowMessage('bb[' IntToStr(i) ']=' IntToStr(bb[i])); //觀察bb[i]的值越來越大
   end;
end;

天行健 君子當自強不息~~@.@

------
天行健
君子當自強不息~~@.@

<<想請問各位高手.. 取亂數有 random randomize randseed........>> 取數的功能只有一個, 就是 RANDOM RAMDOMIZE 是用來隨機設定一個 RANDSEED 現時的方法其實是假的亂數,即是說是用數學方法用 RANDSEED 來計算下一個值,是可以重覆的。一般使用方法為 RANDOMIZE; (撥亂 RANDSEED) RANDOM(X); (然後重覆呼叫 RAnDOM 取出下一個亂數) 如果要重覆那組亂數, 只要重新把相同數字放入 RANDSEED ,其後由 RANDOM 讀出的亂數該是相同 <<我該怎麼在第一次取亂數之後,從第一次取的亂數往後或往前取呢>> 沒有向前向後的概念, RAMDOM() 永遠取下一個