【Delphi 产生了范围随机数 条件可以自己改】

procedure TForm1.Button1Click(Sender: TObject);

var i:Integer; begin   //产生了100-999的数 条件可以自己改 Randomize; i := random(999); while (i < 100) do i := random(999); edit1.Text:=inttostr(i);

end;

第二种方法  单元添加user math

procedure TForm1.Button1Click(Sender: TObject); var a:integer; begin randomize; a:=randomrange(50,99); edit1.Text:=inttostr(a); end;