hzliao 发表于 2016-9-3 17:40:31

Delphi7.0不支持Randomrange函数吗

以下程序不能通过，出现：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这个函数吗？

江上客-无类 发表于 2016-9-24 11:43:23

var
ResultNum:string;

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

江上客-无类 发表于 2016-9-24 11:44:47

手机编辑，操作不便，不是为了刷分，我觉得你这么写可能好调用一些，不完全保证对，，，，刚玩一天，错了欢迎拍，，，，砖
页: [1]
查看完整版本: Delphi7.0不支持Randomrange函数吗