Random

[nailor]

Ich habe nichts gefunden, also die Frage: gibts in den unendlichen Weiten der API einen Befehl, der halbwegs vernünftig ein zufälliges Ergebnis zurückgibt?

[sakura]

Was ist das Problem mit dem Standard-Delphi Befehl Random. Wenn es nicht gerade um Top-Security Anwendungen geht, sollte der doch zufällig genug sein, oder?

......

[nailor]

*selber-hau* !!!

[sakura]

Zitat von Nailor:

*selber-hau* !!!

Vergiß nicht den einmaligen Aufruf von Randomize, damit nicht bei jedem Programmstart der gleiche Zufall kommt.

.......

[nailor]

Vielen Dank für diesen netten Hinweis. Man kann übrigens Randomize auch öfter aufrufen, wenn man immer mit einer davor erzeugten Zufallszahl den Seed neu setzt...

[sakura]

Zitat von Nailor:

Vielen Dank für diesen netten Hinweis. Man kann übrigens Randomize auch öfter aufrufen, wenn man immer mit einer davor erzeugten Zufallszahl den Seed neu setzt...

Öhmm, falsch. Ja man kann den Wert setzen, aber dieses macht keinen Unterschied. Es wird die aktuelle Uhrzeit genutzt. Deshalb kann es bei mehreren Aufrufen auch zu Problemen kommen. Von daher gilt die Faustregel: nur einmal beim Programmstart aufrufen. Hier mal der Source-Code zu Randomize, daran fällt auf, daß der Wert von RandSeed keine Rolle spielt, er wird einfach nur gesetzt (letzte Zeile).

Delphi-Quellcode:

procedure       Randomize;
var
        systemTime :
        record
                wYear   : Word;
                wMonth  : Word;
                wDayOfWeek      : Word;
                wDay    : Word;
                wHour   : Word;
                wMinute : Word;
                wSecond : Word;
                wMilliSeconds: Word;
                reserved        : array [0..7] of char;
        end;
asm
        LEA     EAX,systemTime
        PUSH    EAX
        CALL    GetSystemTime
        MOVZX   EAX,systemTime.wHour
        IMUL    EAX,60
        ADD     AX,systemTime.wMinute   { sum = hours * 60 + minutes    }
        IMUL    EAX,60
        XOR     EDX,EDX
        MOV     DX,systemTime.wSecond
        ADD     EAX,EDX                 { sum = sum * 60 + seconds              }
        IMUL    EAX,1000
        MOV     DX,systemTime.wMilliSeconds
        ADD     EAX,EDX                 { sum = sum * 1000 + milliseconds       }
        MOV     RandSeed,EAX
end;

......

[Stanlay Hanks]

ähhmm...kann mir wer erklähren, was ein seed is??? *Schähmtsichweilerdasnichtweiß*

[sakura]

Genaugenommen ein Samen. In diesem Fall ist es der Anfang einer Serie von Pseudo-Zufallszahlen.

......

[Stanlay Hanks]

Samen...achso . Danke, es heißt praktisch, ab der Aufrufstelle werden wieder neue Zufallszahlen gebildet, was aber eigentlich keine Wirkung hat, weil sie ja eh schon zufällig sind, oder?

[sakura]

Nicht ganz. Die RandSeed Variable wird zur Berechnung der nächsten Pseudo-Zufallszahl herangezogen. Deshalb auch Pseudo, ein Computer kann nicht wirklich Zufallszahlen ermitteln. Es ist immer Mathe dahinter.

......