一个特怪的事情,每次随机产生的都一样!!看里面代码:

Question

borland早就说了，random产生的随机数是永远一样的

Answer 1

我知道
在前面要有一个随机种子数
RANDOMIZE；
最好在循环外面 
把我都给我吧

Answer 2

begin
    randomize; //设置随机种子
    for i:=0 to 4 do begin
        arraN[i]:=Random(100);
        str:=str+intTostr(arran[i]);
    end;
    for a:=0 to 4 do begin
        arraC[a]:=char(65+Random(26));
        str:=str+arraC[a];
    end;
    ShowMessage(str);
end;