delphi的简单问题？

显示全部楼层 · 2009-7-6 03:28:35

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

千问 · 2009-7-6 03:28:35

简单描述：var x:integer;begin x:=random(50); //这样x的值就是0-50的随机数x:=random(50)+100; //这样x的值就是100-150的随机数了end;明白了吧！！...

千问 · 2009-7-6 03:28:35

在某一范围内取随机数的基本原则：i=Random(MAX-MIN)+MIN 如果你需要随机抽取0～20中的随即数字，在新建的窗体中加入一个Edit控件。程序如下~~procedure TForm1.Button1Click(Sender: TObject);vari:shortint;beginrandomize;...

千问 · 2009-7-6 03:28:35

MAX最大数MIN最小数Random(MAX-MIN)+MIN...