FOR-Schleifen Problem

[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;

[himitsu]

Zitat von delphinub23:

Nein, eine Zugriffverletzung tritt nicht auf.

Geh mal in die Projektoptionen und aktiviere dort die Überlauf- und die Bereichsprüfung.

Und schon kommt deine Zugriffsverletzung.
Du hast nur Glück, daß an der falschen stelle, wo zu zugreifst zufällig etwas anderes liegt und es somit nicht gleich knallt.

Zitat:

Delphi-Quellcode:

except
  on E: Exception do
  begin
    // Irgendwo ein Fehler passiert? - 0-Array zurückgeben
    ZeroMemory(@Result, SizeOf(Result));
    raise E; // Exception nach oben weiter geben (benötigt??)
  end;
end;

Beim ZeroMemory, muß beachtet werden, da es hier auf dieses statische Array angepaßt ist ... also je nach Typ, muß es anders gelöst werden.

Zitat:

(benötigt??)

is besser so, auch wenn man es kürzen kann.

Delphi-Quellcode:

except
  ZeroMemory(@Result, SizeOf(Result));
  raise;
end;

[rollstuhlfahrer]

Zitat von himitsu:

Beim ZeroMemory, muss beachtet werden, da es hier auf dieses statische Array angepaßt ist ... also je nach Typ, muß es anders gelöst werden.

Für dynamische Arrays würde ich ein SetLength(<Array>, 0); empfehlen.

Bernhard