[fpc-pascal] Better random numbers ?

[Tomas Hajny]

On 27 Feb 06, at 1:15, A.J. Venter wrote:

> > Some other workaround that comes to my mind is to do something like
> >    Randomize;
> >    RandSeed := RandSeed * getpid;
> This worked, cut the initial generation time from about 30 seconds down to 
> under 1, of course right now it's NOT platform independent at all so I will 
> need to enhance it but I like the direction of your thinking, combining 
> randseed with some virtually guaranteed unique value solves the problem.

System.GetProcessID should be perfectly platform 
independent.

HTH

Tomas