Einzelnen Beitrag anzeigen

Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.033 Beiträge
 
Delphi 12 Athens
 
#20

Re: Random zwischen zwei Zahlen

  Alt 12. Nov 2003, 15:45
Zitat von Treffnix:
da würdest du dir aber auch mit
Result := Random( RandTo ) + RandFrom - 1 einige sinnlose Schleifendurchläufe ( und auch Zeilen ) ersparen.
Also wenn schon, dann so:
Delphi-Quellcode:
If RandTo > RandFrom Then
  Result := RandFrom + Random(RandTo - RandFrom + 1)
Else
  Result := 0;
Dein's gibt einen Zufallswert in einem anderen Bereich zurück:
Delphi-Quellcode:
RandFrom - 1 <= Result < RandTo + RandFrom - 1

Result = (RandFrom - 1) .. (RandTo + RandFrom - 2)
so sollte es doch ausseh'n:
Delphi-Quellcode:
RandFrom <= Result <= RandTo

Result = RandFrom .. RandTo
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
my Delphi wish list : BugReports/FeatureRequests
  Mit Zitat antworten Zitat