《Delphi 7 中的随机函数.doc》由会员分享，可在线阅读，更多相关《Delphi 7 中的随机函数.doc（3页珍藏版）》请在金锄头文库上搜索。
1、Delphi 7 中的随机函数1、RandSeed：随机数发生的“种子”。如果不赋值那么每次执行产生的随机数列是一样的。 所以该值必须每次调用均应是不同值。 如：unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls;typeTForm1 = class(TForm) Button1: TButton; Label1: TLabel; procedure Button1Click(Sender: TObject); pr
2、ocedure FormCreate(Sender: TObject);private Private declarations public Public declarations end;varForm1: TForm1;i:Integer; /定义一个全局变量iimplementation$R *.dfmprocedure TForm1.FormCreate(Sender: TObject);begini:=1; /初始化iend;procedure TForm1.Button1Click(Sender: TObject);beginRandseed:=i+10; /每次点击按钮均重新定
3、义随机数种子i:=Random(100);label1.Caption:=IntToStr(i);end;end.2、Randomize：用当前机器时间作为随机数“种子”初始化随机数发生器。 3、Random（）：由“种子”初始化的随机数出发，开始产生随机数序列。真随机数生成方法：Randomize方法：vari:Integer;beginRandomize;i:=Random(100);label1.Caption:=IntToStr(i);end;用当前机器时间作为“种子”初始化随机数发生器来生成（0-100）之间的随机数，每次均不同。在Delphi中，有一随机函数，是这样定义的：func
4、tion Random ( Range: Integer) ;其中，参数Range为一整数，该函数返回值其范围为：0 =Random(Range) Range (指定Range)0 =Random=0 而100的值 二、我用的获得真正随机数的代码 这个代码其实是在上面的代码变化而来的，也许有人会觉得似乎没有必要，但这只是我探求更加随机数的方法，有点类似C语言以当前时间重置随机数的方法，我的思路是以当前时间与较大范围内的随机数相加作为弧度计算正弦值，这样取整再获取所需范围的随机数。但这里需注意的是，由于弧度取正弦，这个值与理论上-1=x=1还是有差别的，可以说其值在0x|1范围内。 我的代码如下： Randomize; Result:=Trunc(Int(Abs(Sin(Integer(SecondOfTheYear(Now)+Random(10000)*100)+1);
