Class TRandom (unit MyRandom) |
Inherits from
TObject
Constructor Create (FirstSeed, SecondSeed : Word);
- Comments : FirstSeed and SecondSeed must be a Word from 0 to 31328 or } { 0 to 30081 respectively
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
AnArray : Array [1..97] of Extended;
C : Extended;
CD : Extended;
CM : Extended;
Ptr1 : Byte;
Ptr2 : Byte;
Constructor Create (FirstSeed, SecondSeed : Word);
Comments : FirstSeed and SecondSeed must be a Word from 0 to 31328 or } { 0 to 30081 respectively
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
AnArray : Array [1..97] of Extended;
C : Extended;
CD : Extended;
CM : Extended;
Ptr1 : Byte;
Ptr2 : Byte;