同上。

解决方案 »

  1.   

    :P,其还有个RandSeed,少用到
    begin  
      Randomize;  {先初始化随机数}
      Edit1.Text := FloatToStr(Random);
    end;
    ...
    0<=Random(value)<value
    0<=Random<1
      

  2.   

    Randomize 是一个种子,在过程中先调用它
    然后用random函数得到随机数
    范围是0到1,你可以进行相应的运算得到不同范围的数
      

  3.   

    Random returns a random number within the range 0 <= X < Range. If Range is not specified, the result is a real-type random number within the range0 <= X < 1.  Edit1.Text := FloatToStr(Random);  //如果在函数中没有加任何的参数, 默认为0--1