随机数问题2(50)

L

liugaohui

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-01-09

• #1

procedure TForm1.Button1Click(Sender: TObject);vari,j,randSeed:integer;alist:tstringlist;beginalist:=tstringlist.Create;randSeed := strtoint(edit1.Text); //先设置随机数种子richedit1.Clear;for i := 1 to 20 do begin j:= Random(30); alist.Add(inttostr(j)); end;richedit1.Clear;richedit1.Lines.AddStrings(alist);alist.Free;end;edit1.Text初始赋值100，运行程序，得到第1组数据，改变edit1.Text，运行，得到第2组数据，edit1.Text重新修改为100，运行得到第3组数据，为什么第1组和第3组数据不一样？谢谢回复

 

H

haiip2000

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-01-09

• #2

搞不清楚你要做什么，为什么这样写.....随机数就是不一样啊。

 

S

smlabc

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-01-09

• #3

随机都一样了还随个什么机?

 

F

fengsuo1314

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-01-09

• #4

能一样吗？1以内就一样有机会一样了

 

X

[xiaopei]

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-01-09

• #5

randSeed是system单元的全局变量，而你在又在函数过程局部又定义了randSeed，你修改的是你自己的randSeed种子数，而不是random操作的randSeed变量，你只要去掉你声明的RandSeed变量变行了。

 

李

李翔鹏

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-01-09

• #6

你的种子有什么用阿randSeed := strtoint(edit1.Text); //先设置随机数种子j:= Random(30);//这里直接写30了上面的randSeed 根本就没用到阿？还设置个屁阿？还有你随机数没有初始化阿。 Randomize; //要加这一句才管用，否则不随机的。

 

L

liugaohui

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-01-09

• #7

谢谢[xiaopei],没有发现，哈哈

 

L

liugaohui

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-01-09

• #8

多人接受答案了。