Class TRandom (unit MyRandom)

Inherits from

TObject

Constructors


Constructor Create (FirstSeed, SecondSeed : Word);

Comments : FirstSeed and SecondSeed must be a Word from 0 to 31328 or } { 0 to 30081 respectively


Functions

Function GetBaseRandomValue : Extended;

Comments : Outputs an extended number between 0 and 1

Function GetRandomValue(AValue : LongInt): LongInt;

Comments : Outputs a LongInt between 0 and AValue

Properties

Events

Variables

AnArray : Array [1..97] of Extended;


C : Extended;


CD : Extended;


CM : Extended;


Ptr1 : Byte;


Ptr2 : Byte;



Constructors


Constructor Create (FirstSeed, SecondSeed : Word);

Comments : FirstSeed and SecondSeed must be a Word from 0 to 31328 or } { 0 to 30081 respectively


Functions


Function GetBaseRandomValue : Extended;

Comments : Outputs an extended number between 0 and 1


Function GetRandomValue(AValue : LongInt): LongInt;

Comments : Outputs a LongInt between 0 and AValue


Properties


Events


Variables


AnArray : Array [1..97] of Extended;


C : Extended;


CD : Extended;


CM : Extended;


Ptr1 : Byte;


Ptr2 : Byte;