Delphi7中如何实现Randomize后从1至6随机选择非0数字的功能？
- 内容介绍
- 文章标签
- 相关推荐
本文共计156个文字，预计阅读时间需要1分钟。
我想要制作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);end;
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;
应该做的伎俩,它现在永远不会返回零.
本文共计156个文字，预计阅读时间需要1分钟。
我想要制作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);end;
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;
应该做的伎俩,它现在永远不会返回零.