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  更新时间:

posted on 2023-05-31 19:54  滔Roy  阅读(181)  评论(0编辑  收藏  举报

导航