DelphiBasics
RandomRange
Function
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.
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
 Author links

 Buy Website Traffic at
 Buywebsitetrafficexperts.com

 Buy Proxies at
 Buyproxies.io
 
 Download this web site as a Windows program.




 
Example code : Generate random numbers in a very small range
// Full Unit code.
// -----------------------------------------------------------
// You must store this code in a unit called Unit1 with a form
// called Form1 that has an OnCreate event called FormCreate.
 
unit Unit1;
 
interface
 
uses
  Math,   // Unit containing the RandomRange command
  SysUtils,
  Forms, Dialogs;
 
type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  end;
 
var
  
Form1: TForm1;
 
implementation
{$R *.dfm} // Include form definitions
 
procedure TForm1.FormCreate(Sender: TObject);

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;
 
end.
Hide full unit code
   Random number = 652
   Random number = 652
   Random number = 655
   Random number = 652
   Random number = 653
  
 
Delphi Programming Neil Moffatt 2002 - 2017. All rights reserved.  |  Home Page