时间戳

首页 > 解决方案 > 获取 65 到 90 之间的随机数

delphi - 获取 65 到 90 之间的随机数

问题描述

我需要得到一个 65 到 90 之间的随机数。我试着说random(65, 90)，但它说我有太多的实际参数。

procedure TfrmWordGame.FormCreate(Sender: TObject);
var
  randomNumber : integer;
begin
  randomNumber := random(65, 90);
end;

end.

另外，我试着说randomRange(65, 90)

标签： delphi

解决方案

我多年来一直在使用这个自制功能：

FUNCTION RND(MIN,MAX : INTEGER) : INTEGER; INLINE;
  BEGIN
    Result:=RANDOM(SUCC(MAX-MIN))+MIN
  END;

另一种选择（使用现代 Delphis 中可用的System.Math.RandomRange ）是：

FUNCTION RND(MIN,MAX : INTEGER) : INTEGER; INLINE;
  BEGIN
    Result:=RandomRange(MIN,SUCC(MAX))
  END;

推荐阅读