Nee
Delphi-Quellcode:
function Random(const ARange: Integer): Integer;
{$IFDEF PUREPASCAL}
var
Temp: Longint;
begin
Temp := RandSeed * $08088405 + 1; // berechne den nächsten Wert
RandSeed := Temp; //
Result := (UInt64(Cardinal(ARange)) * UInt64(Cardinal(Temp))) shr 32;
end;
Es ist im Prinzip eher etwas wie
Result := Random * pWert; // Random liefert ja 0 bis 0.999999 (oder war es 0 bis 1?)