Question

delphi如何取随机数

比如我要取 1000到 9999直接的随机数？代码应该怎么写！

Answer 1

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

Answer 2

randomize;
showmessage(inttostr(random(8999)+1000));

Answer 3

procedure TForm1.Button1Click(Sender: TObject);
var
x:integer;
begin
x:=0;
while x<1000 do
x:=random(9999);
edit1.Text:=inttostr(x);
end;

Answer 4

function GetRandomNum: Integer; //返回 1000 - 9999 的随机数空清李斗迟正好
begin
Randomize;
Result := Random(10000);
end;