delphi7的随机函数是什么？最好是有例子，并且随机函数在一定范围内。

delphi7的随机函数是什么？最好是有例子，并且随机函数在一定范围内。

随机数相关的几个函数：
1、RandSeed;//随时机数发生的“种子”。如果不赋值那么每次执行产生的随机数列是一样的。
所以该值必须每次调用均应是不同值。
2、Randomize;//用当前机器时间作为“种子”初始化随机数发生器。
3、Random() ；//由“种子”初始化的随机数出发，开始产生随机数序列 但是Delphi中的Random()产生的是伪随机数，也就是说，程序的两次运行，Random()产生的随机数是一样的。先运行一下Randomize,再Random就是真正的随机数了即：Randomize //初始化随机数发生器
Random()
例：产生20-500之间的随机数Randomize;
20+Random(500-30+1);

//初始化随机数种子 randomize; //产生一个不大于 range 的随机整数 function random [ ( range: integer) ]: integer; //如果没有参数，产生一个 0-1 的实数 function random: extended; //从各种数组中随机返回一个元素 function randomfrom(const avalues: array of double): double; overload; function randomfrom(const avalues: array of integer): integer; overload; function randomfrom(const avalues: array of int64): int64; overload; function randomfrom(const avalues: array of string): string; overload; //产生一个从 afrom 到 ato 范围内的随机整数 function randomrange(const afrom, ato: integer): integer;