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;