Question

DELPHI 随机选数问题。

问下
var
Form1:TForm1;
a:array[1..5]of integer=(1,3,4,8,9);
procedure TForm1.Button1Click(Sender: TObject);
begin
edit1.Text:=inttostr(a[random(6)]);
end;

里面为什么是random(6);??????????????????

Answer 1

random(x)的取值范围是 0到x-1
你的语句最好改为
randomize;
edit1.Text:=inttostr(a[random(5) + 1]);

Answer 2

random(6)意思是为变量赋值一个6以内的随机值