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;
