Zufallszahlen allgemeine Frage

[Blup]

GetTickCount liefert Millisekunden.
Time Stamp Counter liefert CPU-Cyclen.
Da immer mehrere unterschiedliche Prozesse laufen, ändert sich der Wert dieses Registers zwischen zwei Abfragen nicht um einen festen Betrag.

Beispiel Pseudocode:

Delphi-Quellcode:

function MyRandom(AValue: Integer): Integer;
begin
  RandSeed := RandSeed xor RTDSC;
  Result := Random(AValue);
end;