[Lazarus] test

Martin Friebe lazarus at mfriebe.de
Tue Dec 30 12:55:43 CET 2008


Randomize seems to be 1 second dependent on the system clock.
I cannot remember if this used to be the same in Borland Delphi/Pascal
The example below shows a 1 second tick sensitivity to random number
creation.

Am I missing something?


uses unix,crt;
VAR
   dummystring,filename	   : String;
   randomnumber	   : Int64;
   hellfreezesover : Boolean;



BEGIN
   hellfreezesover:=False;
   Repeat
   Randomize;Randomize;Randomize;Randomize;Randomize;
   randomnumber:=Random(9999999999999999999);
      writeln('randomnumber=',randomnumber);
   Until (hellfreezesover or keypressed);
END.



More information about the Lazarus mailing list