老问题了。随机数。有段代码，请大家看看。

Question

Function GetRandomString: String;
const
  Max_Len = 10;
var
  i: Byte;
  s: string; 
begin
Randomize;
  s :='0123456789';
  Result := '';
  for i := 0 to Max_Len-1 do
    Result := Result + inttostr(Random(Length(s)));
end;
procedure TForm1.Button1Click(Sender: TObject);
var
 s1: TStringList;
 s:string;
 a:integer;
 b:integer;
begin
edit1.Text:=timetostr(time);
b:=strtoint(edit3.text);
s1:= TStringList.Create;
for a:=1 to b do
begin
s:=GetRandomString;
s1.Add(s);
end;
s1.SaveToFile('d:\ok.txt');
s1.free;
edit2.Text:=timetostr(time);
beep;
showmessage('完成');
end;
end.一次产生100万条10位的数字，偶尔会出现重复。想不通，random的 关系么？ 请大家讨论一下。

Answer 1

不关Random的事，会出现重复是正常的，只是出现概率的大小。如果100万条数字都重复就有问题了

Answer 2

to angle097113(深思不解) :
还要兼顾速度啊。

Answer 3

用Time+Random的方式应该重复的可能性比较小了。

Answer 4

to coreblood(IunKnow) 
要求不重复啊.不然何必要那样呢.

Answer 5

你看看这样行不行：用循环生成一批连续的数，上限和下限（范围）是随机，再抽取到TStringList上（顺序是随机）。这样可以避免重复，但如果将TStringList上的数一排序，就都是连续的。^_^

Answer 6

听说guid的方式可以做到不重复,不知道怎么弄.有谁知道么?具体讲讲.

Answer 7

GUID未必是你所想要的，你在Delphi代码框里按下Ctrl+Shift+G，就会看到GUID是十六进制的字符串。

Answer 8

产生数字，在加入stringlist之前先检查在stringlist是否有重复，有重复不加，循环直到stringlist加够100W就行了。简单点说，你就是未处理产生的数字，判断处理下也不会多影响效率。

Answer 9

依我看,事生成1到1亿的顺序数,然后从第一个数开始,与第trunc(100000000*rand())个数字相交换,再把这个数据表保存成你自己私人用的随机数表.
下次要用的时候,从第trunc(100000000*rand())个数字开始读取这个随机数表(超过1亿就从头读取)就可以快速生成1亿个不重复的随机数了.
下次再聊.

Answer 10

我也觉得这个Random有点问题~
前一段时间自己也做过有关随机数的问题~
用了三个Random,生成三个随机数~然后还用了一些TIME
用来不停的生成三位随机数~
发现每次起动程序第一次生成的数都是同一个数:114
当然后面的生成还不和每次的不一样~
就是这个固定的:114不知道是怎么一回事~
如果有兴趣研究的朋友可以到这个网址里面去下载看看: http://dianhui.ys168.com 
程序源代码和.EXE文件都放在这里面~可以去下载~

Answer 11

我是这样理解的:
一般情况下,编程语言(C/C++/VB/Delphi)里的随机数函数用的都是一个固定的数表,通过初始化语句改变不同的起点,如果不用初始化语句就会得到固定的数字序列,据说是为了便于调试.如果用要用到真正的随机数,要从现实中去采集.但是这样采集出来的随机数也未必适合楼主的程序,1百万个数字中可能会有重复.

Answer 12

procedure SaveRandomNumToFile(aLen: Byte; aCount: Integer; FileName: String);
var
  i, M, R: Integer;
  S: String;
  B: TBits;
  F: TextFile;
begin
  if not (aLen in [2..10]) then
    Exit;
  M := Round(IntPower(10, aLen));
  if aCount * 2 > M then
    Exit;  S := '%.' + IntToStr(aLen) + 'd';
  Randomize;
  AssignFile(F, FileName);
  Rewrite(F);
  try
    B := TBits.Create;
    try
      B.Size := M;
      for i := 0 to aCount - 1 do
        repeat
          R := Random(M);
          if not B[R] then
          begin
            B[R] := True;
            Writeln(F, Format(S, [R]));
            Break;
          end;
        until False;
    finally
      B.Free;
    end;
  finally
    CloseFile(F);
  end;
end;procedure TForm1.Button1Click(Sender: TObject);
const               // *%+-*%+-
  CountGet: Integer =  100000000;   //总数
  NumberLen: Byte   =  10;         //10位数字
begin
  Button2.Caption := 'Writing';
  SaveRandomNumToFile(NumberLen, CountGet, GetCurrentDir +'\2.Txt');
  Button2.Caption := 'OK';
end;
end.