Delphi常用随机函数

1. Random

function Random [ ( Range: Integer) ];:产生一个0<=X

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的一个随机数


 

你可能感兴趣的:(Delphi)