查看: 91|回复: 0

Delphi Random() 随机函数

[复制链接]

3

主题

0

回帖

0

积分

热心网友

金币
0
阅读权限
220
精华
0
威望
0
贡献
0
在线时间
0 小时
注册时间
2008-12-18
发表于 2020-3-19 11:47:00 | 显示全部楼层 |阅读模式

Delphi Random() 随机函数
函数原型:function Random ( Range: Integer) :integer;

参数:Range:整数,
返回值:整数,其范围为:

  • 0 <= Random(Range) < Range   (指定Range)
  • 0 <= Random< 1   (不带参数Range)

Random()生成随机数。(运行几次会发现取得的随机数一样,因为系统的随机种子没有改变,Ramdomize; 用来改变随机种子)。

例:

begin
  Randomize; //初始化随机数发生器 
  Random(N); //生成一个随机整数,范围在0-N之间,包含0;
end;//

 

在delphi7 中实测:

var
  i:integer;
begin
  //Randomize; //无初始化,每次的随机数都一样 例如:0、2、6、9、5  下次打开又是  0、2、6、9、5
  Listbox1.Clear ;   
  for i:=1 to 10 do
  begin
    Listbox1.Items.Add(inttostr(random(10)));
  end;
end;

 

 

创建时间:2020.03.19  更新时间:2020.03.19

 

回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

相关侵权、举报、投诉及建议等,请发 E-mail:qiongdian@foxmail.com

Powered by Discuz! X5.0 © 2001-2026 Discuz! Team.

在本版发帖返回顶部