Hallo,
ich habe bereits einen Code im Internet gefunden, der mir Zufallszahlen ohne Doppelte liefert.
Allerdings habe ich mir die Seite wo ich den Code gefunden hatte nicht gemerkt...
Ich würde gerne wissen wie genau der folgende Code funktioniert:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
Var
A : Array[0..100] of Integer;
I, J, T, Count : Integer;
begin
Count := strtoint(edit1.text);
For I := 0 to Count-1 do
A[I] := I;
For I := 0 to Count-1 do
begin
J := I+random(Count-I);
T := A[J];
A[J] := A[I];
A[I] := T;
end;
end;
Wie gesagt: Funktionieren tut er perfekt, aber ich würde gerne wissen, wie er funktioniert (dass keine doppelten Zahlen erscheinen)
Ich hoffe es kann mir jemand "erklären"
