

在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`函数。