W
wjlsnet
Unregistered / Unconfirmed
GUEST, unregistred user!
如何随机返回一个整数？ 谢谢
D
dz2050
Unregistered / Unconfirmed
GUEST, unregistred user!
Randomize，Random
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;
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;
S
svw0506
Unregistered / Unconfirmed
GUEST, unregistred user!
procedure TForm1.Button1Click(Sender: TObject);
var
i : Integer;
begin
i := Random(100);//返回小于100的任意整型数
ShowMessage(IntToStr(i)) ;
end;
var
i : Integer;
begin
i := Random(100);//返回小于100的任意整型数
ShowMessage(IntToStr(i)) ;
end;
W
wjlsnet
Unregistered / Unconfirmed
GUEST, unregistred user!
谢谢！ ：）
有没有不带参数的返回随机整数的函数？ 我要这种的：）
有没有不带参数的返回随机整数的函数？ 我要这种的：）
D
dedema
Unregistered / Unconfirmed
GUEST, unregistred user!
先用randomize 初始化。
然后用random(r)返回r范围内的一个随机数。
然后用random(r)返回r范围内的一个随机数。
A
antic_ant
Unregistered / Unconfirmed
GUEST, unregistred user!
Randomize;
Random(200)
Random(200)
W
wjlsnet
Unregistered / Unconfirmed
GUEST, unregistred user!
先用randomize 初始化。
然后用random(r)返回r范围内的一个随机数。
Randomize;
Random(200)
----------------
这些都带参数呀 （r,200），我想要一个什么参数到不带的，有没有呀...........
然后用random(r)返回r范围内的一个随机数。
Randomize;
Random(200)
----------------
这些都带参数呀 （r,200），我想要一个什么参数到不带的，有没有呀...........
V
vine
Unregistered / Unconfirmed
GUEST, unregistred user!
你把上面的调用封闭成自己的一个过程不就是了
如
function myRan:integer;
begin
Randomize;
result:=Random(200);
end;
如
function myRan:integer;
begin
Randomize;
result:=Random(200);
end;
老
老赵
Unregistered / Unconfirmed
GUEST, unregistred user!
翻已前的贴子，有N个答案了。
W
wjlsnet
Unregistered / Unconfirmed
GUEST, unregistred user!
多人接受答案了。