ja also wie die beiden Vorposter geschrieben haben mit Intergerwert arbeiten, der anschließend dividiert wird.
Hab mal versuchtt den C-Code zu übersetzen, ist ja nicht so schwer. Rand_Max musste ich schätzen
Delphi-Quellcode:
function RandomDouble(loDouble, hiDouble: Double): Double;
var
temp : Double;
begin
// swap low & high around if the user makes no sense
if (loDouble > hiDouble) then begin
temp := loDouble;
loDouble := hiDouble;
hiDouble := temp;
end;
// calculate the random number & return it
Result := (Random / 0.999999999999999999) *
(hiDouble - loDouble) + loDouble;
end;