delphi下如何实现随机数？(0分)

H

hfdmwjh

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-28

• #1

delphi下如何实现随机数？

 

Y

yzhshi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-28

• #2

var

I: Integer;
begin
Randomize;
for I := 1 to 50 do begin
{ Write to window at random locations }
Canvas.TextOut(Random(Width), Random(Height), 'Boo!');
end;
end;

 

N

nj_wangzhen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-28

• #3

var
I: Integer;
begin
Randomize;
for I := 1 to 50 do begin
{ Write to window at random locations }
Canvas.TextOut(Random(Width), Random(Height), 'Boo!');
end;
end;
DELPHI 的例程, 你看看

 

C

chinargb

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-28

• #4

thanks!

 

无

无疯无禄

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-28

• #5

Random()

 

B

Block_K_E

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-28

• #6

Random(INT:Integer); //INT为 产生随机数的范围

 

H

hamsoft

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-29

• #7

Randomize;
Random(INT:Integer); 返回大于＝0，小于int的数。

 

C

cnkk

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-29

• #8

到深度历险找一找专门的随机函数，用 Random（INT: integer）出来的随机数简直是笑话，
不信你用类似以下的语句试试
for i := 0 to 5 do
Memo1.Lines.Add(IntToStr(Random(1000)));