怎样才能得到真正的随机数？

Question

即是真正的随机数重复的机会也是很大的，
   用GUID会小得多的。
   ctrl+shift+G

Answer 1

先运行一下Randomize,再Random就是真正的随机数了

Answer 2

随机数相关的几个函数：
1、RandSeed;//随时机数发生的“种子”。如果不赋值那么每次执行产生的随机数列是一样的。
所以该值必须每次调用均应是不同值。
2、Randomize;//用当前机器时间作为“种子”初始化随机数发生器。
3、Random() ；//由“种子”初始化的随机数出发，开始产生随机数序列

Answer 3

Randomize //初始化随机数发生器
Random() 

Answer 4

随机数相关的几个函数：
1、RandSeed;//随时机数发生的“种子”。如果不赋值那么每次执行产生的随机数列是一样的。
所以该值必须每次调用均应是不同值。
2、Randomize;//用当前机器时间作为“种子”初始化随机数发生器。
3、Random() ；//由“种子”初始化的随机数出发，开始产生随机数序列 

Answer 5

为什么它会报错呢？如何解决？
//产生随机数
function myrandom(a,b:integer):integer;
begin
    radomize;
    if a<=b then
          result:=random(b-a)+a
    else  result:=random(a-b)+b;
end;[Error] Frameu.pas(118): Undeclared identifier: 'radomize'
[Fatal Error] pFrame.dpr(5): Could not compile used unit 'Frameu.pas'

Answer 6

radomize;
在一个程序里（至少是一个单元里），只用一次就可以了，另外你查一下帮助，是不是你写有错，我平时还真没注意过。

Answer 7

可以使用当前时间作为一个参数，决定RANDOM执行的次数，如：
FOR I:=0 TO N RADNOM();
其中N是由时间NOW加上RANDOM随机决定的！具体实现方法自己试试！