编程论坛's Archiver

hawk022 发表于 2007-8-29 17:16

[求助]Delphi中如何生成一个特定范围的随机数?

两个问题:<BR>    1. Delphi中生成随机数的函数是什么?如何生成一个特定范围的随机数?<BR>    2. 如何查找Delphi自带的函数?也就是说,我怎么才能知道Delphi有哪些函数我可以直接调用的?谁有Delphi的函数说明手册之类的东东吗,共享一下,感激不尽!<BR><BR>谢谢!

继续忽悠 发表于 2007-8-30 17:10

<P>这是用C#写的,你参考一下看能不能行<BR>Random randobj= new Random();<BR>labCode.Text=randobj.Next(1000,10000).ToString();</P>

hawk022 发表于 2007-8-31 20:15

嗯,谢谢。我听说delphi中可以这样做。<BR>integer data;<BR>randomize;<BR>data = random(30);//产生一个0-30的随机数。<BR>产生一个特定范围倒好办,可以做一个循环, 不满足要求让他重新再产生。<BR><BR>可是这样的话,每次产生的序列都是一样的,不知道如何才能设随机的种子(seed)。<BR><BR>注:上面这段代码我还没有验证,只是看到别人有这么说。

sxf陌生人 发表于 2007-9-1 20:50

<P>     Randomize;<BR>     i := random(999);<BR>     while (i &lt; 100)  do<BR>     i := random(999);<BR>     edit9.Text:=inttostr(i);<BR>产生了100-999的数 条件可以自己改</P>

hawk022 发表于 2007-9-3 13:56

嗯,楼上的将我所说的用代码实现了,非常感谢。<BR>可是,由于随机函数是伪随机算法的,比如C语言,可以为随机函数指定一个种子(seed),让不同种子的随机函数产生不同的随机序列,不知道Delphi有没有这种功能?

sky_yang_sky 发表于 2007-10-13 17:13

randomrange(min,max)可以取位於這倆個數之間的隨機數

xiaofkg 发表于 2007-10-19 09:02

<P>var a:integer;<BR><BR>randomize;<BR>a=trunc(random(100));<BR></P>

页: [1]

Powered by Discuz! Archiver 6.1.0  © 2001-2007 Comsenz Inc.