Delphi Randomize



Randomize 语句初始化随机数生成器。如果不使用 Randomize,则第一次调用 Rndom 函数时,它将使用相同的数字作为种子值,随后使用最后生成的数值作为种子值。建议每次取随机值的时候,先用Randomize,再用random,因为Randomize是起初始化作用的。如果只用random,比如:随机取100次,你就会发现有很多都在一个比较接近的范围,使得随机行显得稍差!

产生不重复随机数的技巧算法:

procedure TForm1.Button1Click(Sender: TObject);

var

i, j: Integer;

arr: array[0..99] of Integer;

tem_arr: Integer;

list: TStringList;

begin

Memo1.Clear;

for i := 0 to 99 do

arr[i] := i;

randomize;

for i := 0 to 99 do

begin

j := 1 + random(99);

tem_arr := arr[i];

arr[i] := arr[j];

arr[j] := tem_arr;

end;

for i := 0 to 99 do

begin

memo1.Text := memo1.Text + '  ' + IntToStr(arr[i]);

end;

list := TStringList.Create;

for i := 0 to 99 do

list.Add(IntToStr(arr[i]));

list.Sort;

memo2.Text := list.Text;

end;