Delphi7.0不支持Randomrange函数吗

hzliao

以下程序不能通过，出现：Undeclared identifier: 'Randomrange'错误提示

procedure TForm1.Button1Click(Sender: TObject);

var
  i : Integer;
  begin
begin
  // Show 5 random numbers in the range 652 to 656
  for i := 1 to 5 do
    ShowMessage('Random number : '+IntToStr(RandomRange(652, 656)));
end;

end.

我的是Delphi7.0，到底是哪里出错了？是我的Delphi版本不支持RandomRange这个函数吗？

江上客-无类

var
ResultNum:string;

begin
ResultNum:=inttostr(Randomrange(startvalue,endvalue));

江上客-无类

手机编辑，操作不便，不是为了刷分，我觉得你这么写可能好调用一些，不完全保证对，，，，刚玩一天，错了欢迎拍，，，，砖