zufallszeit generieren

[Satty67]

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;