zufall generell für eine zahl...

[mosquito]

Hiho Leutz, ich schon wieder
kann mir mal bidde bidde jemand ein code sagen, bei dem ich einer variablen einen zufallswert zuweise, DER IN EINEM BESTIMMTEN BEREICH liegt,
tya ich habs schon mit der hilfe versucht, bin aba noch relativ neu bei Delphi und komm damit noch nicht so klar, also bidde bidde helft mir

[himitsu]

RandomRange?

Delphi-Quellcode:

function RandomRange(const AFrom, ATo: Integer): Integer;

Zitat:

Zitat von Die OH

Unit Math

Beschreibung

RandomRange gibt einen zufälligen Integer-Wert im Bereich von AFrom bis ATo zurück (inklusive). RandomRange funktioniert auch mit negativen Bereichen (wenn AFrom größer als ATo ist).

Um den Zufallszahlengenerator zu initialisieren, müssen Sie vor dem Aufruf von RandomRange die Prozedur Randomize aufrufen oder der Variable RandSeed einen Wert zuweisen.

[BenjaminH]

Oder, wenn man es selbst machen will, einfach das:

Delphi-Quellcode:

i:=Random(1000)+1;//eine Zahl von 1 bis Tausen, also beide darin enthalten
i:=Random(1995)+5;//Ergibt eine Zahl von 5 bis 2000

i:=Random(x) Ergibt einen Wert, für den gilt 0<=i<x
i:=Random(x)+y Durch die Addition dahinter sieht das ganze halt so aus:
y<=i<x+y

[Grishnak]

RandomRange(a, b) gibt meines Wissens eine Zufallszahl von a bis b-1 zurück und nicht von a bis b. Die OH ist in diesem Fall falsch! Bitte berichtigt mich, wenn ich mich irre!

[DGL-luke]

jup. habe ich auch erst heute erfahren nmüssen.

[himitsu]

Eigentlich sollte die Hilfe stimmen?

jedenfalls wenn ich mir denCode so ansehe :roll:

Delphi-Quellcode:

function RandomRange(const AFrom, ATo: Integer): Integer;
begin
  if AFrom > ATo then
    Result := Random(AFrom - ATo) + ATo
  else
    Result := Random(ATo - AFrom) + AFrom;
end;

fals dein RandomRange falsch ist, dann kannst'e ja das nehmen ^^

[Grishnak]

Eben wenn ich mir diesen Code anschaue, sehe ich, warum er falsch ist!

Bsp.: AFrom = 2, ATo = 100 --> Random(100-2)+2 = Random(98)+2
Random(98) spuckt aber Zahlen von 0 bis 97 aus!

Richtig wäre wohl:

Delphi-Quellcode:

function RandomRange(const AFrom, ATo: Integer): Integer;
begin
  if AFrom > ATo then
    Result := Random(AFrom - ATo + 1) + ATo
  else
    Result := Random(ATo - AFrom + 1) + AFrom;
end;

[himitsu]

ohh, war mir garnich aufgefallen -.-''
(welch ein Glück, das ich dieses fehlerhafte Teil noch nie selber verwendet hab ^^)

Du kannst dich ja mal an Borland wenden und denen das sagen :)