zufällig erstellte Zahlen (gleiche Zahlen verbieten)

[SirThornberry]

folgender Source sorgt dafür das jede zahl nur einmal vorkommt, auf deinen source anpassen musst du selbst

Delphi-Quellcode:

var p: Array of Integer;
    i, a, maxelements, newzahl: Integer;
    schondrin: Boolean;
begin
    maxelements := 10;
    setlength(p, maxelements);

    for i:= 0 to maxelements - 1 do
    begin
      repeat
        schondrin := False;
        newzahl := random(maxelements);
        a := 0;
        while (a < i) and not(schondrin) do
        begin
          if p[a] = newzahl then schondrin := True;
          a := a + 1;
        end;
        until schondrin = false;
        p[i] := newzahl;
        memo1.Lines.Add(inttostr(p[i]));
    end;
end;