Mega Code Archive

 

Categories / Delphi / Functions

 

Randomrange - generate a random integer number within a supplied range math unit

function RandomRange ( const RangeFrom, RangeTo : Integer ) : Integer; Description The RandomRange function generates a random Integer number within the range RangeFrom to RangeTo inclusively. * This provides a more convenient version of the System unit Random function. Both use a pseudo random number sequence of 232 values. Each time you run your program, the values generated will be the same, unless you reposition the generator to a different part of the sequence using the Randomize or RandSeed functions. Notes * Warning The RandomRange function does not appear to work as documented by Borland. It never includes the RangeTo value in the result. So it appears to be only partially inclusive. (Thanks to Jerry Keyes for pointing this out). Related commands Random Generate a random floating point or integer number Randomize Reposition the Random number generator next value RandSeed Reposition the Random number generator next value Example code : Generate random numbers in a very small range var i : Integer; begin // Show 5 random numbers in the range 652 to 656 for i := 1 to 5 do ShowMessage('Random number : '+IntToStr(RandomRange(652, 656))); end; Show full unit code Random number = 652 Random number = 652 Random number = 655 Random number = 652 Random number = 653