求解（最好甲鱼老师能给解释下）

icerlau

procedure TForm3.Button1Click(Sender: TObject);
var
   arr : array[1..10] of integer;
var
   i ,a,b : integer ;
begin
    Randomize;  // 功能需讲解一下，解决之前随机数不“随机”问题
    edit1.Text :='';
    edit2.Text :='';
    edit3.Text :='';
    for i := 1 to 10  do
    begin
      arr[i]:= i;
      edit1.Text :=inttostr(arr[i])+',' +Edit1.text;   
    //arr[i]:= Random(90)+10;
    //Edit1.Text:= Edit1.Text + IntToStr(arr[i]) + ',';   
    end;
      edit1.Text :=copy (edit1.Text, 1,length(edit1.text)-1 );   
  a :=arr[1];
   b := 1;
for  i := 2 to 10 do
begin
if (a < arr[i]) then
begin
     a := arr[i];
    b :=i;
end;

end;
edit2.Text  :=inttostr(a);
edit3.Text  :=inttostr(b);

end;
为什么 edit1.Text :=inttostr(arr[i])+',' +Edit1.text;    这样写，和Edit1.Text:= Edit1.Text + IntToStr(arr[i]) + ',';这写得出的结果是反着的？   

小甲鱼

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

大白话解释就是人工是没办法弄出完全的随机数，只能通过随机算法尽可能的模拟随机数，随机算法需要一个随机的种子数作为开关，Randomize就是生成这个种子~

Q2：反过来写肯定是反着的咯~

icerlau

我的结果是这样反的啊：10，9，8，7，6，5，4，3，2，1:sad

老小孩

小甲鱼 发表于 2014-1-6 15:40

                               
登录/注册后可看大图

Q1：Randomize 语句初始化随机数生成器。如果不使用 Randomize,则第一次调用 Rndom 函数时,它将使用相同的数 ...

回复他就是因为他是VIP吗:huffy:

小甲鱼

icerlau 发表于 2014-1-6 17:12

                               
登录/注册后可看大图

我的结果是这样反的啊：10，9，8，7，6，5，4，3，2，1

对的呀，拼接的顺序倒了嘛。

例如'ABC' + 'D' == 'ABCD'，但'D' + 'ABC' == 'DABC'

icerlau

对哦~3Q~老师好耐心啊