各位大大 能傳授一下嗎... 我要如何才能亂數取得 如下 [1,3,4,5,7,9] 亂數取其一 [2,3,6] 亂數取其一 [0,4,5,8,9] 亂數取其一 裏頭的數字可以自己丟....

 
procedure TForm1.Button1Click(Sender: TObject);
var
  X: Byte;
  Sample: array of Byte;
  I: Integer;
begin
  //產生Sample
  SetLength(Sample, Random(10) 1);
  for I := 0 to Length(SetLength)-1 do
    Sample[I] := Random(10);      //X 代表你要的亂數
  X := Sample[Random(Length(Sample))];    end;

發表人 - jow 於 2005/11/28 18:21:33

謝謝jow的回覆.. 不過我就是不知要如何把 我要亂選的數字 丟進去 也不知要丟到那 [1,3,4,5,7,9] 亂數取其一 or [2,3,6] 亂數取其一 or [0,4,5,8,9] 亂數取其一 很模糊......

function GetRandom(const ValueSet: array of integer): integer;
begin
    Result := ValueSet[random(High(ValueSet)-Low(ValueSet) 1)];
end;

then...

x := GetRandom([1,3,4,5,7,9]);
x := GetRandom([2,3,6]);
x := GetRandom([0,4,5,8,9]);

http://pywong.hk.st

 
interface    uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, 
  Controls, Forms,Dialogs, StdCtrls;    type      TArrayofByte = array of Byte;      TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    function CustomSample(SampleCount: Integer): TArrayOfByte;
    function CustomRandom(Sample: TArrayOfByte): Byte;
  end;    var
  Form1: TForm1;    implementation    {$R *.dfm}    function TForm1.CustomRandom(Sample: TArrayOfByte): Byte;
begin
  if Sample = nil then Result := Byte(-1)
  else Result := Sample[Random(Length(Sample))];
end;    function TForm1.CustomSample(SampleCount: Integer): TArrayOfByte;
var
  I: Integer;
begin
  if SampleCount < 1 then Result := nil
  else begin
    SetLength(Result, SampleCount);
    for I := 0 to SampleCount-1 do
      Result[I] := Random(256);//Sample Range 0..255
  end;
end;    procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(IntToStr(CustomRandom(CustomSample(5))));
end;

謝謝 jow 跟版大的相助 版大的 function GetRandom(const ValueSet: array of integer): integer; begin Result := ValueSet[random(High(ValueSet)-Low(ValueSet) 1)]; end; 要如何改寫 才能做到真真亂數取得,不然重跑,都一樣

procedure TForm1.FormCreate(Sender: TObject);
begin
  Randomize;
end;

發表人 - jow 於 2005/11/30 09:24:07

  function GetRandom(const ValueSet: array of integer): integer;
  begin
     Randomize;   //這個指令可使亂數種子混亂,讓你每次重新執行都不一樣 
     Result := ValueSet[random(High(ValueSet)-Low(ValueSet) 1)];
  end;
 

根據delphi的Help,將Randomize放置在GetRandom()中,似乎比較不太適當 ,Borland建議不要在Loop中重複呼叫Randomize.    Description Randomize initializes the built-in random number generator with a random value (obtained from the system clock). The random number generator should be initialized by making a call to Randomize, or by assigning a value to RandSeed. Do not combine the call to Randomize in a loop with calls to the Random function. Typically, Randomize is called only once, before all calls to Random.

感謝jow 及acqua的熱心指導........ 應該可以解決目前的問題........... 特別謝謝 版主大大