Zufallszahlenalgorithmus

[gammatester]

Aus der RTL. Der andere Teil ist etwas kitzliger, hier ein Äquivalent für Delhis mit int64. In der RTL wird Assembler benutzt. Man nimmt die höheren Bits, weil die zufälliger sind.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  a,b: longint;
const
  ARange = 100000;
begin
  a := random(ARange);
  b := (int64(ARange) * RandSeed) shr 32;
  if b<0 then b := b+ARange;
  button1.Caption := InttoHex(a,8) + ' / ' + IntToHex(b,8);
end;