Delphi7,Randomize,从1到6中选择随机数,但不是0

Question

我想制作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？谢谢

Answer 1

x1:=random(6) + 1;

应该做的伎俩,它现在永远不会返回零.