DelphiBasics
RandSeed
Variable
Reposition the Random number generator next value System unit
  var RandSeed : LongInt;
Description
The RandSeed variable is used in conjunction with the Random function. It changes the seed used that Delphi uses to generate its range of 232 pseudo random numbers.
Related commands
Random Generate a random floating point or integer number
Randomize Reposition the Random number generator next value
RandomRange Generate a random integer number within a supplied range
 Author links

 Buy Website Traffic at
 Buywebsitetrafficexperts.com

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




 
Example code : Run this code twice to see the effect of RandSeed
var
  int   : Integer;
  i     : Integer;
  hours, mins, secs, milliSecs : Word;

begin
  // Get random numbers using the default random seed value
  ShowMessage('Fixed first 5 random numbers');
  for i := 1 to 5 do
  begin
    int := 1 + Random(100);    // The 100 value gives a range 0..99
    ShowMessage('int = '+IntToStr(int));
  end;

  // Now change the random seed to the milliseconds value
  // of the current time
  DecodeTime(now, hours, mins, secs, milliSecs);
  ShowMessage('');
  ShowMessage('Setting randSeed to value : '+IntToStr(milliSecs));
  ShowMessage('');
  RandSeed := milliSecs;

  // Get an integer random number in the range 1..100
  ShowMessage('Random next 5 numbers');
  for i := 1 to 5 do
  begin
    int := 1 + Random(100);    // The 100 value gives a range 0..99
    ShowMessage('int = '+IntToStr(int));
  end;
end;
Show full unit code
   Fixed first 5 random numbers
   int = 1
   int = 4
   int = 87
   int = 21
   int = 28
  
   Setting random seed to value : 660
  
   Random next 5 numbers
   int = 72
   int = 62
   int = 28
   int = 63
   int = 44
 
Delphi Programming Neil Moffatt 2002 - 2017. All rights reserved.  |  Home Page