828
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
ptzld 2003-11-27
- 打赏
- 举报
用Random()
sandyboy 2003-11-27
- 打赏
- 举报
up!
Sepe 2003-11-27
- 打赏
- 举报
Randomize 是对随机进行初始化
random, 是随机函数，里面放种子，产生的植在0-种子-1，程序同意chwdong
random, 是随机函数，里面放种子，产生的植在0-种子-1，程序同意chwdong
zblaoshu1979 2003-11-27
- 打赏
- 举报
同意chwdong(chwdong)
angelface 2003-11-26
- 打赏
- 举报
同上...
chwdong 2003-11-26
- 打赏
- 举报
Randomize;
for i := 0 to ATmNum-1 do
begin
inum:=Random(irange);//0-irange范围内
.............
for i := 0 to ATmNum-1 do
begin
inum:=Random(irange);//0-irange范围内
.............
