Delphi随机数

在uses引用math，它提供了几个取随机数的函数；代码如下：
procedure TForm1.Button1Click(Sender: TObject);
begin
randomize;//初始化内置的随机数生成器
edit1.Text:=inttostr(randomrange(1000,9999));
end;
//randomrange（随机数起始范围，随机数结束范围）

转载于:https://blog.51cto.com/2767797/1222587