Delphi常用随机函数

1. Random

function Random [ ( Range: Integer) ];：产生一个0<=X<Range的随机数。例如：

Random(10);  //随机产生一个大于等于0小于10的数

使用Random之前，要先用Randomize过程或RandSeed函数来初始化随机数产生器。

 

2. RandomFrom

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;

从AValues数组中随机返回一个数。使用RandomForm之前，要先用Randomize过程或RandSeed函数来初始化随机数产生器。

 

3. Randomize

procedure Randomize;：初始化内置的随机数生成器。

procedure TForm1.Timer1Timer(Sender: TObject);
begin
    Randomize;
    Edit1.Text := inttostr(Random(90));
end;

4. RandomRange

function RandomRange(const AFrom, ATo: Integer): Integer;：在整数范围内随机产生一个整数。其中，AForm、ATo代表整数范围。使用RandomRange之前，要先用Randomize过程或RandSeed函数来初始化随机数产生器。

 

5. RandomSpeed

var RandSeed: LongInt = 0;：通过为变量赋予指定值保存内置随机数发生器的种子，可以利用Random函数分别产生指定的随机数序列。例如：

RandSeed := GetRand(1,255);  //返回1到255的一个随机数