Randomize mehrmals starten

[sirius]

Zitat von Dax:

Es ist nicht gut. Wenn du das mehrmals machst, wird der Zufallsgenerator mehrmals neu initialisiert, und da Randomize auf Basis von GetTickCount und damit im Millisekunden-Bereich arbeitet... Nun, am besten ein Beispiel.

Delphi-Quellcode:

var a: Integer;

Randomize;
a := Random(1000);
Randomize;
a := a - Random(1000);

a wird nahezu immer 0 sein, da der Zufallsgenerator zwei mal initialisiert wird, und dies wahrscheinlich mit dem selben Seed (4 Calls brauchen keine Millisekunde)...

Naja fast richtig. für solche Leute wie dich, hat sich Borland auch etwas ausgedacht und nimmt deswegen statt gettickcount QueryPerformancCounter. Da wird etwas fixer gezählt.
Du kannst diese Demonstration aber durchführen indem du die globale Variable RandSeed von Hand belegst.