G
gy87sz
Unregistered / Unconfirmed
GUEST, unregistred user!
近日编程，要用到随机数发生器Random，原来以为很简单，写了下面这样一个程序，谁知看了生成文件后，大跌眼镜，为什么都是0？
哪里有任意数量，任意范围（Integer范围内即可）的随机数发生函数？
procedure TForm1.Button1Click(Sender:TObject);
var f:TextFile;
r:array[1..High(Word)] of Integer;
i:Integer;
begin
Randomize;
for i:=1 to High(Word) do
r:=Random(High(Word));
AssignFile(f,'123.Txt');
ReWrite(f);
for i:=1 to High(Word) do
Writeln(f,r);
CloseFile(f);
end;
不知什么原因，好象Random函数只能生成140个左右的伪随机数，虽然Delphi6中增加了一些随机数生成函数，但都不理想。
如何产生任意多（譬如：10万个随机数的）方法？
哪里有任意数量，任意范围（Integer范围内即可）的随机数发生函数？
procedure TForm1.Button1Click(Sender:TObject);
var f:TextFile;
r:array[1..High(Word)] of Integer;
i:Integer;
begin
Randomize;
for i:=1 to High(Word) do
r:=Random(High(Word));
AssignFile(f,'123.Txt');
ReWrite(f);
for i:=1 to High(Word) do
Writeln(f,r);
CloseFile(f);
end;
不知什么原因，好象Random函数只能生成140个左右的伪随机数，虽然Delphi6中增加了一些随机数生成函数，但都不理想。
如何产生任意多（譬如：10万个随机数的）方法？