Delphi的随机数如何产生

chenzhechenge 2004-08-12 12:15:46

Delphi中的哪个函数可以产生随机数？

...全文

294 6 打赏收藏转发到动态举报

写回复

6 条回复

切换为时间正序

请发表友善的回复…

发表回复

BigAngell 2004-08-12

打赏
举报

回复

Random(I:Integer)

goodloop 2004-08-12

打赏
举报

回复

先randomize初始化随机种子,一次就可以了

在用random()获取随机值

shehyde 2004-08-12

打赏
举报

回复

random 函数返回一随机函数

benjiamen 2004-08-12

打赏
举报

回复

呵呵,来晚了,
楼上的说得对,是 random()

capoatguitar 2004-08-12

打赏
举报

回复

random()

kaguo 2004-08-12

打赏
举报

回复

random 函数返回一随机函数

randomize 函数用一随机数初始化内置的随机数生成器

//用delphi产生不重复的随机数******************************************************************************************varaa : array[1..36] of string[2];//aa数组为需要随机排列的数组，{先把1..36按顺序给aa数组赋值}procedure TForm1.FormC...

检举|2010-05-08 09:41你的样子20 | 分类：其他编程语言 | 浏览6314次怎样产生随机数 条件是 1.这些随机数每个都不同（5个数吧） 2.随机数的范围在1到35之间我要把他们显示在 memo1 中怎么显示呢谢谢大侠们了回答好了加 50 procedure TForm1.Button1Click(Sender:TObject); v...

procedure TForm1.Button1Click(Sender: TObject); var i:Integer; begin //产生了100-999的数条件可以自己改 Randomize; i := random(999); while (i < 100) do i := random(999); edit1.Text:=inttostr(i); end; 第...

产生不重复随机数的算法能够解决诸如随机洗牌，抽彩等问题，在网上的一些算法自觉较繁，现给出简单的算法。以下源程序为1..36个数字，随机排列，产生不重复随机数。 var aa : array[1..36] of string[2]; //aa数组为需要随机排列的数组， {先把1..36按顺序给aa数组赋值} procedure TForm1.FormCreate(Sender

用了一个RandSeed种子变量，一般是再以种子为基础，取一个很大的质数来取模在delphi目录中搜索system.pas，搜索Randomize可以找到以下函数：procedure Randomize;{$IFDEF LINUX}beginRandSeed := _time(nil);{$ENDIF}{$IFDEF MSWINDOWS}varsystemTime :record...

5,943

社区成员

262,941

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章