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 ...）