在DELPHI中怎样产生两个相同的随机数序列？(200分)

A

air_craft

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-05

• #1

在DELPHI中怎样产生两个相同的随机数序列？怎样对RandSeed变量进行操作？为什么我在USES中加入SYSTEM会说我重复加入了SYSTEM identifier?

 

L

lvxq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-05

• #2

既然是随机数，怎么能要求两个相同呢。如果要使用同一个随机数，肯定有变通的方法。
如果是同一画面，可以设置全局变量，否则可以以函数形式传递。
默认情况下就有SYSTEM，何必重加

 

4

41426277

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-05

• #3

程序起动时加入Randomize;

a:=random(10);
b:=a;

 

M

mpheonix

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-05

• #4

9494
你赋值多一次不就行了

 

A

air_craft

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-05

• #5

其实这个问题直接给RandSeed赋值就可以了，是我想复杂了。