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

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

单元：math

原型：

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变量指定一个值。

例如：

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

创建时间：2023.05.31　　更新时间：