紧急求救！如何得到一个真正的随机数？(20分)

无

无锡空心菜

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-02

• #1

用random返回的随机数每次都一样，比如第一次返回的是0，那么当我重新调用random是返回的
还是0，有没有什么办法使每次重新调用random后返回的值不同？
用randomize初始化好像也没什么用。
紧急！！！

 

S

sybex

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-02

• #2

procedure TForm1.FormCreate(Sender: TObject);
begin
randomize
end;
这样就可以了。

 

W

wangbeyond

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-02

• #3

每次取数都得用randomize初始化，这样函数random才能产生作用，如要是每次不重复，
只要加个判断是否已经取出的过程就行了！

 

无

无锡空心菜

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-02

• #4

多人接受答案了。

 

W

wangpian

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-02

• #5

randomize肯定可以