FOR-Schleifen Problem

[delphinub23]

Danke für alle Posts! Mir persönlich gefällt die Variante von Sir Rufo am besten.

[Aphton]

Diese Variante ist aber recht unperformant.
Mag dennoch verständlicher sein, als meine Variante!

[delphinub23]

So funktioniert es wie ich es brauche. Nur die Zuweisung des 1. Feldes muss mit in die Schleife, da sonst der 1.te eintrag bei der Ausgabe fehlt.

Danke Sir Rufo!

Delphi-Quellcode:

procedure TFmMain.btnGenClick(Sender: TObject);
var
  rZahl : array [0..9] of Integer;
  temp, i : Integer;
  Unique : Boolean;
  j : Integer;
begin
  txtRandoms.Clear;
  i := Low(rZahl);
  while i <= High(rZahl) do
  begin
    repeat
      Unique := True;
      temp := Random(10);
      for j := Low(rZahl) to Pred(i) do
        if rZahl[j] = temp then
        begin
          Unique := False;
          Break;
        end;
    until Unique;
    rZahl[i] := temp;
    txtRandoms.Text := txtRandoms.Text + IntToStr(rZahl[i]) + '; ';
    Inc(i);
  end;
end;