Delphi RandomRange() - 返回指定范围内的随机整数

Delphi RandomRange() - 返回指定范围内的随机整数

单元：math

原型：

?

1 2 3 4 5 6 7

function RandomRange(const AFrom, ATo: Integer): Integer; begin   if AFrom > ATo then     Result := Random(AFrom - ATo) + ATo   else     Result := Random(ATo - AFrom) + AFrom; end;

• RandomRange从AFrom和ATo之间的范围中返回一个随机整数（不包含）。
• RandomRange可以处理负范围（其中AFrom大于ATo）。
• 要初始化随机数生成器，请在对RandomRange进行任何调用之前，添加单个调用Randomize或为RandSeed变量指定一个值。

　　

例如：

?

1	RandomRange(1,10);  //返回1-9的数字，不包含10

　　

 

 

创建时间：2023.05.31　　更新时间：