Delphi中怎么得到随机数?
4个回答
展开全部
var
Num:integer;
begin
Randomize;//初始化随机种子
Num:=random(10); //随机10以内的数字
showmessage(Inttostr(Num));
end;
Num:integer;
begin
Randomize;//初始化随机种子
Num:=random(10); //随机10以内的数字
showmessage(Inttostr(Num));
end;
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
function randStr(i:integer = MaxInt):integer; //默认生成MaxInt内随机数
begin
Randomize;//初始化
Result:=random(i); //随机生成i以内数字并赋值给函数本身
end;
begin
Randomize;//初始化
Result:=random(i); //随机生成i以内数字并赋值给函数本身
end;
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
function randstr(i:integer):integer; // 生成i 以内的数字
begin
Randomize;//初始化
result:=random(i); //随机生成i以内数字并赋值给函数本身
end;
楼上正解，
begin
Randomize;//初始化
result:=random(i); //随机生成i以内数字并赋值给函数本身
end;
楼上正解，
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
楼上正解.
参考资料： 大仙
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
更多回答（2）
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
