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