|
Registriert seit: 20. Jan 2006
Ort: Lübbecke
11.452 Beiträge
Delphi 12 Athens
|
AW: Delphi 11 kein RandomRange für 64-bits?
23. Apr 2022, 10:41
Vielleicht klappt dies besser:
Delphi-Quellcode:
Function RandomRange(Const AFrom, ATo: UInt64): UInt64;
Begin
Result:= Round(Random*(ATo - AFrom)) + AFrom;
End;
|