Random: Delphi vs. Lazarus?

[himitsu]

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?)