|
Registriert seit: 19. Jan 2003
732 Beiträge
Turbo Delphi für Win32
|
Re: Random ist kein reiner Zufall
2. Apr 2007, 04:51
Delphi-Quellcode:
Result := RandSeed * 134775813;
RandSeed := Result + 1;
Result := DWORD(Result) mod Range;
Naja in etwa so...
Dani H.
At Least I Can Say I Tried
|