Zitat von
himitsu:
Na ja, er bekommt dann richtige Pseudozufallszahlen ^^
Natürlich hier auch das Randomize beim Programmstart nicht vergessen, da es auf den "normalen" Zufallsfunktionen aufsetzt.
Delphi-Quellcode:
Function Random(Range: LongInt): LongInt;
Begin
RandSeed := RandSeed * 134775813 + ((GetTickCount and 3) or 1;
//Result := Int64(Range) * LongWord(RandSeed) div Int64($100000000);
Result := Int64(Int64(Range) * LongWord(RandSeed)) shr 32;
End;
Ist zwar och noch nicht perfekt, aber besser als nüschts
wie kann ich das dann einbauen ???