Question

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

Answer 1

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

Answer 2

用这个函数就可以了function RandomRange(const AFrom, ATo: Integer): Integer;