用户名:  密码:   
您当前的位置:首页 > 程序设计 >  Delphi > 

生成随机数

上次修改时间: 2023-07-29 17:54:53      来源:网络总结      作者:钢铁长陈
上一页      路径:DSD\Learn\Delphi语言\Delphi相关\      下一页

在Delphi 7中,可以使用`RandomRange`函数生成指定区间的随机数。以下是`RandomRange`函数的用法示例:

```delphi
uses
  Math;

var
  RandomNumber: Integer;

begin
  RandomNumber := RandomRange(StartValue, EndValue);
end;
```

在上述示例中,`StartValue`和`EndValue`表示区间的起始值和结束值。`RandomRange`函数将返回一个介于`StartValue`和`EndValue`之间(包括`StartValue`和`EndValue`)的随机整数。

以下是使用`RandomRange`函数生成指定区间随机数的示例代码:

```delphi
uses
  Math;

var
  RandomNumber: Integer;
 
begin
  Randomize;  // 初始化随机数生成器

  // 生成介于 1 和 10 之间(包括 1 和 10)的随机数
  RandomNumber := RandomRange(1, 10);

  // 显示随机数
  ShowMessage(IntToStr(RandomNumber));
end;
```

在上面的示例中,`Randomize`过程用于初始化随机数生成器,确保每次程序运行时,种子数不同。然后,利用`RandomRange`函数生成介于1和10之间(包括1和10)的随机整数,并将其存储在`RandomNumber`变量中。最后,使用`ShowMessage`函数在Delphi 7中显示生成的随机数。

请注意,每次调用`Randomize`过程都会重新初始化随机数生成器,以获得更好的随机数分布。另外,如果你需要生成浮点数随机数,可以使用`Random`函数。