Delphi 11 kein RandomRange für 64-bits?

[himitsu]

Wird auch nicht ganz klappen, auf Grund der Structur von GUIDs.

Das Result nahezu immer im oberen Bereich liegen also bei 9999999999 fast immer im Bereich von 0200000000 bis 9999999999,
was dann gegen eine Normalverteilung von Zufallszahlen spricht.

[rabatscher]

Für meine Lib


hab ich sowas verwendet:

Delphi-Quellcode:

function TRandomGenerator.RandInt64(const aRange: Int64): Int64;
var val1, val2 : LongWord;
begin
     val1 := fRandLW($8FFFFFFF);
     val2 := fRandLW($FFFFFFFF);

     Result := ( ( Int64(val1) shl 32) + Int64(val2) ) mod aRange;
end;

fRandLW ist vom typ: function(const ARange : LongWord) : LongWord; Also quasi ident mit der Delphi random funktion


in https://github.com/mikerabat/mrmath findest du die Klasse TRandomGenerator
Die Lib unterstützt auch die Intel RDRAND Instruktion, Mersenne Twister, ChaCha (Salsa20) und eine von Windows bereit gestellte Crypto Random Engine
die von Advapi32.dll bzw. BCrypt.dll bereit gestellt wird.

[jaenicke]

Statt auf Int64 sollte der Case eher auf UInt64 gehen. Schließlich handelt es sich um positive Werte.