Delphi7的，随机化，选择随机数从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; 

应该做的伎俩，它现在不会返回零。

Answer 2

使用RandomRange：

uses Math; 

begin 
    x1 := RandomRange(1, 7); 

（它在内部完全一样Chris' answer ...）