Delphi7,Randomize,从1到6中选择随机数,但不是0
发布时间:2020-12-15 09:10:17 所属栏目:大数据 来源:网络整理
导读:我想制作2个骰子,但我不希望它选择0,这是我的代码: procedure TForm1.Button1Click(Sender: TObject);var x1,x2:integer; text1,text2:string;beginrandomize;x1:=random(7);x2:=random(7);text1:=inttostr(x1);text2:=inttostr(x2);label1.Caption:=text1;
我想制作2个骰子,但我不希望它选择0,这是我的代码:
procedure TForm1.Button1Click(Sender: TObject); var x1,x2:integer; text1,text2:string; begin randomize; x1:=random(7); x2:=random(7); text1:=inttostr(x1); text2:=inttostr(x2); label1.Caption:=text1; label2.Caption:=text2; end; end. 我该怎么办才能让它从1到6中选择,不包括0?谢谢 解决方法x1:=random(6) + 1; 应该做的伎俩,它现在永远不会返回零. (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |