查看: 101|回覆: 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.

在本版发帖返回顶部